NOTICE 


THIS DOCUMENT HAS BEEN REPRODUCED FROM 
MICROFICHE. ALTHOUGH IT IS RECOGNIZED THAT 
CERTAIN PORTIONS ARE ILLEGIBLE, IT IS BEING RELEASED 
IN THE INTEREST OF MAKING AVAILABLE AS MUCH 
INFORMATION AS POSSIBLE 



Final nepon RSC 3SS6-2 


oj- J^oS'go 

THE SOFTWARE SYSTEM DEVELOPMENT FOR THE TAMU ^ 
REAL-TIME FAN BEAM SCATTEROMETER DATA PROCESSORS 

By 

Billy V. Clark 
B. Randall Jean 

iNASA-CR-160880) THE SOFTWARE SYSTEM 
DEVELOPMENT FOE THE TAMU REAL-TIME FAN BEAM 
SCATTEROMETER DATA PROCESSORS Final Report 
iTexas ASM Univ.) 262 p HC A12/MF A01 

CSCL 08B G3/i|3 

August 1980 


Sponsored by: 

National Aeronautics and Space Administration 
Lyndon 3. Johnson Space Center 
Contract NAS9-1 5311 

i 


TEXAS A&M UNIVB 
REMOTE SENSING CE 
COLLEGE STATION, TEXAS 




N81-11439 

Unclas 

37740 


Final Report RSC 3556- 


THE SOFTWARE SYSTEM DEVELOPMENT FOR THE TAMU 
REAL-TIME FAN BEAM SCATTEROMETER DATA PROCESSORS 


By 


BiTly V. Clark 
B. Randall Jean 

Remote Sensing Center 
Texas A&M University 
College Station, Texas 77843 


August 1980 


Sponsored by: 

National Aeronautics and Space Administration 
Lyndon B. Johnson Space Center 
Contract NAS9-15311 


TABLE OF CONTENTS 


Page 

LIST OF FIGURES 

LIST OF TABLES 

1.0 SUMMARY 1 

2.0 INTRODUCTION 3 

2.1 Historical Background 3 

2.2 Design Objective and Overview , 4 

3.0 DESIGN THEORY 9 

3.1 Introduction 9 

3.2 The Scatterometer Equation and Fan Beam Systems 9 

3.3 Precision in Estimating o° 14 

r H 

3.4 Power Spectral Estimation Using the Chirp Z-Transform ... 19 

3.5 The Application of the CZT to Doppler Filtering 21 

4.0 SYSTEM DESIGN RATIONALE 27 

4.1 Introduction 27 

4.2 Definition of System Design Parameters 29 

4.3 The Theory for Constant Precision, Constant Angular 

Resolution and Constant Ground Resolution Designs 35 

4.3.1 A Constant Precision Design . 35 

4.4 A Comparison of the Design Approaches 38 

5.0 SYSTEM ARCHITECTURE AND OVERVIEW 49 

5.1 Target and Development System Architectures 49 

5.2 An Overview of the Operation of the System 52 

6.0 SOFTWARE DEVELOPMENT FOR C-BAND/L-BAND REAL-TIME RADAR DATA 

PROCESSOR 59 

6.1 Background. 59 

6.2 Software Algorithm 60 

ii 


TABLE OF CONTENTS (continued) 


Page 

6.2.1 General Concept 60 

6.2.2 System Initialization and Set-Up 60 

6.2.3 'RUN' Mode of Operation 66 

6.2.3. 1 Calculating a°' 66 

6. 2. 3. 2 Calculating o° 72 

6. 2. 3. 3 'RUN' Termination 73 

6.2.4 Testing and Evaluation 73 

6.2.5 Memory Requirements 79 

6.3 Interrupt Structure 79 

6.4 Sub-routine Definitions 81 

REFERENCES 93 

APPENDIX A: System Flow Charts 94 

APPENDIX B: INTCOM Listing (Main Driver) 131 

APPENDIX C: Bi-Phase-L Output Frame 163 

APPENDIX D: Subroutine Listings (Alphabetical) 167 

APPENDIX E: AMC 95/6511 Device Routine Listings 259 


LIST OF FIGURES 


Figure Page 

3.1 Doppler Processing and the Fan Beam Scatterometer ...... 10 

3.2 Scatterometer Geometry 11 

3.3 The Variance Ratio as a Function of Integration Time- 

Bandwidth Product (from Reference [2]). . 16 

3.4 The Improvement in Precision with the Time Bandwidth 

Product 17 

3.5 A Simplified Block Diagram cf the CW Fan Beam 

Scatterometer 22 

3.6 Spectra of Interest 23 

3.7 A Technique for Implementing the CZT Without Post 

Multiplication 26 

4.1 Various Resolution Parametsars 31 

4.2 Various Cell Parameters 32 

4.3 Comparison of the Resolution Parameters when 

(a) vT^ < pg, (b) vTg = pg and (c) vTg > pg 33 

4.4 The Dependence of Processing Precision on View Angle for 

the Three Design Approaches 39 

4.5 The Dependence of Angular Resolution on Viewing Angle for 

the Three Design Approaches 40 

4.6 The Dependence of Ground Resolution on Viewing Angle for 

the Three Design Approaches 41 

4.7 The Depend nee of Beam Resolution on Viewing Angle for 

the Three Design Approaches 42 

4.8 The Dependence of Processing Precision on View Angle for 

the Three Design Approaches 43 

4.9 The Dependence of Angular Resolution on Viewing Angle fo 

the Three Design Approaches 44 

4.10 The Dependence of the Ground Resolution on Viewing Angle 

for the Three Design Approaches 45 

4.11 The Dependence of Beam Resolution on Viewing Angle for 

the Three Design Approaches 46 


in 


LIST OF FIGURES (continued) 


Figure 

5.1 Architecture of the Target System 

.2 Architecture of an Engineering Model Expandable to 
the Target System 

5.3 Spectral Data Format and Related Parameters . . . 

5.4 Filter Power Spectral Response 

6.1 Overall System Structure 

6.2 General System Layout, Real Time Processor. . . . 

6.3 System Geometry 

6.4 Module Test Set-Up. . 

6.5 System Test Set-Up 

6.6 Cell Overlap Geometry 

6.7 Cell Overlap vs Cycle-Time 

6.8 Program Alignment within ROM and RAM 

6.9 CZT Interrupt Structure 


V 


LIST OF TABLES 


Table page 

4.1 Factors Influencing System Performance ..... 28 

4.2 Nominal Design Guidelines 38 

6.1 I/O Ports Used by NASA-CZT Processor 62 


THE SOFTWARE SYSTEM DEVELOPMENT FOR THE TAMU 
REAL-TIME FAN BEAM SCATTEROMETER DATA PROCESSORS 


1,0 SUMMARY 

The Remote Sensing Center at Texas A<(M University (TAMU) has devel- 
oped a real-time radar signal processor for the NASA fan beam scatter- 
ometer system. The development of the system and hardware design of the 
real-time processor is documented in Final Report RSC-3556, "The System 
and Hardware Design of Real-Time Fan Beam Scatterometer Data Proces- 
sors," March 1979 [1]. This current report presents the details of the 
development of the software system for the signal processors, 

The software package has been designed and written to process in 
real-time any one quadrature channel pair of radar scatterometer signals 
from the NASA L- or C-Band radar scatterometer systems. The software 
has been successfully tested in the C-Band processor breadboard hardware 
using recorded radar and NERDAS (NASA Earth Resources Data Annotation 
System) signals as the input data sources. 

Contained in this report are a brief review of the processor devel- 
opment program, a concise yet complete description of the overall 
processor theory of operation and design, a detailed description and 
documentation of the real-time processor software system, the results of 
the laboratory software tests, and recommendations for the efficient 
application of the data processing capabilities provided by the TAMU 
Real-Time Scatterometer Processing System. 
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In the intet^est of efficiency and econony, some of the material 
presented In this report has been extracted from Final Report RSC-3556 
Cl] with only minor or no modification. Such material has been Included 
to provide as nearly complete docimientation In this volume of the over- 
all processor system as Is necessary to fully understand Its operation, 
capabilities and limitations, For the detailed documentation of the 
breadboard hardware and the engineering model design It 1s still neces- 
sary to refer to the earlier report. 


2 


2.0 INTRODUCTION 


2.1 Historical Background 

The NASA Johnson Space Center operates a set of airborne fan beam 
scatterometers for support of various earth and space related programs. 
Data froff( an early system proved helpful In Identifying an ocean wind 
measurement technique. This work eventually led to the scatterometer 
system aboard SEASAT A. Raw scatterometer signals from these early 
experiments were post processed Into quantitative engineering unit data 
using a general purpose computer. The time and expense required to 
process data caused the delay between data acquisition and data product 
delivery to be excessive. As a result, utilization of the scatter- 
ometers was limited and they were eventually removed from service. 

f*lore recently, radar data requests by the NASA soil moisture pro- 
gram provided enough justification to warrant reinstating the 0.4 GHz, 
1.6 GHz and 13.3 GHz scatterometers Into service, and constructing a new 
4.75 GHz scatterometer. The earlier experiences with scatterometer data 
processing led to a program to develop faster, cheaper methods of data 
handling and processing. The Initial thrust of the program produced a 
demonstration processor for use with the 13.3 GHz scatterometer. The 
philosophy behind this processor was to provide a real-time quick capa- 
bility for verifying data characteristics (I.e., system operation) and 
2) provide a method of Identifying those data to be post processed on a 
large computer to the accuracies needed for analysis. This processor 
was developed and constructed at TAMU under NASA contract [2] to process 
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polarization channel over a limited set of viewing Singles. In addition 
to this hardware processor, TAMU developed software routines for general 
purpose computers to reduce raw data ta ’Calibrated engineering units. 
Recent advances in signal processing technology have suggested that 
by combining analog and digital processing methods into a single proces- 
sor, real-time on board processing and real-time rate post time process- 
ing of scatterometer data to calibrated engineering units could be 
accomplished. Such a system could provide all of the capability in 
terms of viewing angles, resolution and adaptability that the post time 
software systems previously developed could provide, with a potential 
for more accurate results as a result of eliminating the analog recorder 
when operating in a real-time mode. Such a system would provide experi- 
menters with caliwrated data on a timely basis with fewer manhours 
from data flight to delivery. This realization provided the basis for 
the current efforts reported in this document. 

2 • 2 Design Objective and Overview 

Designs for two airborne radar scatterometer processors for use 
with the NASA 1.6 GHz and 4.75 GHz scatterometers were identified and 
anlayzed. A portion of the processor was implemented to evaluate a 
"state-of-the-art" component proposed for use in the processor. This 
component permitted a standarized design approach which is extendable to 
other NASA fan beam scatterometers. The current effort exploited design 
experiences from previous hardware and software processors to minimize 
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significant error contributions and to assure repeatability in perform- 
ance. However, innovations were also introduced as a result of the 
hybrid sampled analoo and digital approach to provide a flexible opera- 
tor/fxperimenter oriented system. As a result of these new insights, 
major improvements were also identified for use in the purely software 
approaches to processing scatterometer data. This benefitted another 
NASA sponsored program to develop a more efficient software routine to 
process scatterometer data on an interim basis while the hardware 
processors undergo development. This latter effort ran concurrently 
with the processor development program and afforded an opportunity to 
also test, anticipate and prove ttie characteristics of the hardware 
design. 

The hardware design features a chirp Z- transform (CZT) approach to 
filtering the Doppler spread radar return. The CZT is implemented with 
multiplying digital to analog converters and a charge coupled transver- 
sal filter. The filtering operation reduces to that of performing a 
discrete Fourier transform (DFT) of the radar return when represented in 
complex valued form. As a consequence, no Hilbert transform operation 
(sign sensing) is required to separate fore and aft returns. Both are 
provided simultaneously with considerable reduction in circuit complex- 
ity. The subsequent processing, is actually limited to the aft data; 
however, the fore data is available within the processor should future 
efforts require it. 

There are many advantages in the CZT approach. It permits high 
frequency resolution of Doppler return. As a consequence, the return 
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may bo measured with good angular resolution. This V(so permits the 
processor to adapt with changes in aircraft velocity to track the 

desired viewing angles by simply using a different set of spectral out- 
puts, It will also permit arbitrary choices in viewing angles desired. 
The CZT approach can be readily applied to scatterometers operating at 
other wavelengths by altering the sampling frequency. 

The power spectral density (PSD) of the total return is formed from 
the chirp Z- transformed data. The formation of the PSD requires that 
the spectral data be detected (squared) and accumulated (averaged) over 
a period of time. To achieve the accuracy and the dynamic range 

required in scatterometry, the detection and accumulation are accom- 

plished digitally. 

The detected and averaged data are converted to estimates of the 
scattering coefficients o“ at eight viewing angles ovei .iie aft sector. 
The conversion is implemented in software and requires the application 
of radar range, pattern data, viewing angle, and transmitted power to 
yield a calibrated result. In addition, the software permits inter- 

active control of the processor. Since the computations and control are 
provided by software, any portion of the operating system can be altered 
should the need arise. 

The design approach was partially evaluated by actually implement- 
ing a subsystem of the scatterometer processor. An evaluation to this 
detail was required to validate the performance and dynamic range of the 
charge coupled devices and associated circuitry since this is a "state- 
of-the-art" i cm. 
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An earlier report Cl] described the system design theory, the sys- 
tem operating rationale and architecture, the harware and software 
designs and an evaluation of the CZT approach for the scatterometer 
processors profiled above. This report reviews the relevant system and 
hardware design considerations and provides detailed documentation of 
the newly developed processor software. In particular. Section 3.0 
reviews the system design theory background. The characteristics of CW 
fan beam scatterometers are related to the scatterometer equation to 
identify the measurement theory. It is shown that the angular scatter- 
ing characteristic can be resolved by estimating the PSD of the radar 
return. The precision by which the PSD estimated is related to the time 
bandwidth product by analogy with classical fading theory. The tech- 

nique by which the fore and aft spectra are separated using a DFT method 
is then identified. The DFT is related to the CZT and the means by 
which the CZT may be implemented is then established. 

Section 4.0 is dedicated to establishing a suitable operating 
rationale for the processor. Trade-offs between angular resolution, 
ground resolution, precision and beam resolution are established and 
evaluated to identify a suitable operating mode to satisfy user require- 
ments and system constraints. 

Section 5.0 describes in detail the system architecture and care- 
fully distinguishes between the target system and the engineering devel- 
opment model. An overview of the internal operation of the system is 
also presented. 
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Section 6.0 provides a complete description of the software system 
that has been developed for the real-time data processors, The software 
system provides fully calibrated normalized radar cross-section data for 
eight angles of Incidence, The output data are fully annotated with all 
relevant aircraft, sensor, and processor ancillary data In a single 
serial b1-(ji L channel, 
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3.0 DESI G N THEOR Y 


3,1 Introduction 

Airborne fan beam scatterometers permit simultaneous backscatter 
observations over a range of incident angles. By confining the antenna 
beam width in the crosstrack dimension and spreading the beam in the 
along track dimension, Doppler filtering may be employed in a CW system 
to resolve the average return power at various incident angles, each of 
which is spanned by a small angular window as Illustrated by Figure 
3.1. Combinations of transmit and receive polarizations permit like and 
cross polarized scattering properties of distributed targets to be mea- 
sured. When the aircraft Is flown over the same distributed target at 
different headings about the compass, the azimuthal as well as the 
incident angular behaviors may be documented, 

3 • ^ The Scatterometer Eq u ation and Fan Beam Systems 

For a large class of distributed targets the returns from slightly 
different angular directions are essentially uncorrelated. Where a 
particular direction Is denoted by (o,<j)) within the coordinte system of 
Figure 3.2, the total return power may be described by summing returns 
from patches of the target located in various angular directions (o^. 
If the radar cross section in direction (o-j,(j>j) is denoted 
by opq( uj,(j)j) , the total return power may be expressed as 

V/p' B I ^ IJtplO'j, <J>j)Srq^'^1» '}'j)opq(0i, (3.1) 
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where 


X » radar wavelength 


Gtp “ transmit pattern directivity for polarization state p 
s receive pattern directivity for polarization state q 
= total transmitted power 
“ h/cosG^ 

h « aircraft altitude 

p,q s indices denoting the transmit and receive polarization 
states, respectively 

In order to primarily discriminate the backscatter within an angular 
sector of the incident angle 0, a Doppler filter, whose normalized 
transfer function is given by H(w), is employed (see Figure 3.1). The 
portion of the return power appearing at the output of the filter is 


therefore given by 
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(3.2) 


apq(0.,(i)j)lH(w^j)|VR5 


where 


0 ). = 4ir V sino. cose^X 

1 J I J 


(3.3) 


is the radian frequency associated with the patch in direction (0,,(j).). 

* J 

When the normalized scattering coefficient Opq(0»<l>) is introduced, the 
double summation may be replace with a double integral given by 


X^W^ G^pG^q Opq 

(4ir)^ R‘* 


H({^) 


dA 


(3.4) 


In the interpretation of W it is important to realize that H(w) ^ 
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participates within the integration since u is dependent on (0,t|i). In an 
ideal fan beam scatteronieter, <j> ranges over a small interval about zero 
since the crosstrack antenna beam width is small, As a consequence 

u) a 4tt V sin 0/X ' (3.5) 

It is then observed that |H(w)|^ plays the role of a normalized antenna 
pattern having discriminatory power in the 0 dimension. 

When the bandwidth of the Doppler filter is sufficiently narrow i 
Opq may be regarded as constant over the area A spanned by the Doppler 
bandwidth and the crosstrack beamwidth. The scatteronieter equation (3.4) 
then reduces to the form 






(Oj // G^pC^q [H|='cos'*0dA 


h" 


(3.6) 


where 0^ is the incident angle corresponding to the center frequency 
of the Doppler filter, i.e., 


Wq « 4tt V sin G^/X (3.7) 

The recovery of o{Q^) is, therefore, dependent on measurement of W^, 
and h and on an estimate of the double integral. In this regard the 
integral is often approximated by introducing an effective area Ag^^ 
so that 


3,3 Precision in Estimating 

In order to att1n«te o“^ at a set of incident angles i-1.2 

n, a bank of filters is required. The center frequency of each filter 
is chosen in accord with equation (3.7). If S(w) is the spectral density 
of the return signal, then the output of the ith filter is given by 


00 


Wr(0oi) = 2 S(o))df 


(3.9) 


An alternative method could, instead, measure (estimate) the power spectral 
density (PSD) of the return signal and then form the return power through 
an integration, viz., • 


W = 2 / 


ui 

fii 


$(w)df 


(3.10) 


where f^^. and f^^ are the upper and lower corner frequencies associated 
with the ith angle. In the latter case the measurement of has been 
reduced to a problem in estimating the power spectral density. 

Regardless of the approach, it is necessary to reduce the variance 
in the estimate of the mean power return to assure a good estimate of 
the average scattering coefficient 0 °^. As is well known, the radar return 
is characterized by heavy fading since the signal has a Rayleigh-like 
amplitude distribution [3]. As a consequence, it is difficult to estimate 
the mean squared statistic of such a signal. The theory for the precision 
in the estimating the mean squared statistic appears in references [3], [4] 
and others. The extrapolation of this theory to the case where the PSD is 
to be estimated can be established on an intutive basis and is made pre- 
cise in reference [5]. The PSD is estimated from the periodogram and is 
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defined by 

s(n) e-J K"/Np (3,11) 

n»0 

for the kth spectral line for a signal represented in sampled form 
{s(o), s(l),... ,s(N-l)}. 

In the case where analog filtering, detection and Integration is 
performed, It is well known that the standard deviation a in the estimate 
of is given by [4] 

o = W^//Tf (3.12) 

where B 1s the pre-detection (effective) bandwidth and T is the integration 
period. The dependence of the variance ratio on the BT product is 

Illustrated In Figure 3.3. 

Although the variance reduction Is a good Indication of the improve- 
ment in the estimate of W^, the precision of a system Is better conveyed 
by a statistical 90% confidence interval. The 90% confidence interval for 
a BT product of 10 or better can be approximated by [e] 

- 1.645a i + 1.645a (3.13) 

where is the estimate of W^. When the span of this confidence interval 
is expressed in dB, it can be written as 

p = in 1 1.645/ /TT (3.14) 

1 - 1.645/ /TT 

The dependence of this precision factor on the time bandwidth product is il- 
lustrated in Figure 3.4. It is observed that a + 1 dB confidence interval 
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requires a BT product of 50. Furthermore, it is noted that the improve- 
ment in precision becomes less rapid when BT > 100. 

The above theory can also be applied to the case where the PSD is 
determined from the periodogram. To obtain precision in the estimate 
of the PSD^ the periodogram must be averaged. This can be accomplished 
by averaging spectral estimates from a sequence of records and by smooth- 
ing adjacent spectral lines from a single record. To make the association 
between the precision for an analog processor with that for a PSD proces- 
sor, it should be noted that the PSD estimates are based on the discrete 
Fourier transform (DFT) of the return signal s(t) (see equation (3.18)), 

The effective bandwidth associated with DFT processing (filtering) is given 
by 

Af-Y 

where T is the duration of the signal record. It has been assumed that 
the record is unweighted. Therefore, the time bandwidth product associat- 
ed with a single line from a single record is simply 

BT AfT (3.16) 

or 1, Since the spectral estimates from a single record are poorly 
correlated, the BT product can be enhanced by averaging over a window of 
adjacent spectral lines. The BT product can be further enhanced by 
averaging line estimates from a sequence of non-overlapping records. 

So, if adjacent lines from each record are smoothed and non-over- 
lapping records are processed, the resulting BT product for a filter of 
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(3.17) 


II 


width NpAf Is given by 

BT » (NpAf)(N,^T) 

or simply N^N^. This result Indicates that the precision improvement is 
identical for analog and PSD processing. 


3 . 4 Power Spectral Estimation Using the Chirp Z-Transform 

As indicated above, the estimate o^ the PSD can be based on the DFT 

of a radar return record. If s(n), n»0,l,E N-1 is an N point sequence 

representing the return signal s(t) over a time interval T, then the DFT 
of s(t) is defined as 

F(k) * V s(n) (3.18) 

n^o 

where k e{0,l ,2,. . . ,N-1}. F(k) is interpreted as the spectral amplitude of 
s(t) at a frequency of k/T when 0 s k s ^ and at a frequency of -(N-k)/ T 
for ^ < k < N - 1. It has been assumed that N is even. The DFT formula- 
tion may be modified through the use of the identity 

2nk « n^ + k^ - (k - n)^ (3.19) 


to permit an implementation of the DFT by hardware. The identity results 
in a DFT given by 


F(k) - s(n)e-J™^/N e 


(3.20) 


n=o 


The implication of the above result is that s(n^) must be first down-chirped 
with convolved with an up-chirp e^'^^ and then post multi- 
plied by a down-chirp e The pre and post multiplications may be 
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performed by analog methods and the convolution may be formed with trans- 
versal filters using charge coupled devices. The transversal filter 
requires 2N-1 stages to implement the DPT. When forming the PSD, the 
post chirp may be discarded since it does not affect the amplitude. 

A more efficient means for implementing the transversal filter, 
requiring only N stages in the transversal filter, is based on the slid- 
ing nPT. The sliding transform is defined as 

k+N-1 

F (k) » Z s(n)e"^^^^*^^^ (3.21) 

^ n-k 

and differs from the non-sliding version in that tho input sequence is 
shifted forward one sample for each new spectral estimate. The transform 
consequently operates continuously. Spectral estimates on the same line 
are updated every N samples since is modulo N in the parameter 

k. As a result of the sliding action, phase information is destroyed*, 
nevertheless, the magnitude information important to the PSD estimation 
is preserved. 

It can be shown that through the use of the identity of equation 
(3.19), the sliding transform can be rewritten as 


F (k) = E s(k - ni + " "" •* 

m=l (3.22) 


This result implies that the input must be pre-chi rped by a factor 
g-jiT(m-N) /N^ convolved with and then post multiplied with 

e ’ to form the sliding DFT. When the PSD ii required, the post 
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multiplication may be replaced with a squaring operation to yield 

jF (k)l^. Since the pre-multiplication is periodic in m, the CZT filter 
s 

can operate on the input signal continuously with the trans/ersal filter 
only requiring N stages. 

3.5 The Application of the CZT to Doppler Filtering 
3.5.1 Signal Processing Theory 

A simplified block diagram of the CW fan beam scatteroineter is 
illustrated in Figure 3.5. The transmitter illuminates the terrain at a 
radian frequency of The backscattered signal arriving at the receiver 
may be denoted as 

s(t) = a(tl cos [Wjjt + (|)(t)] (3.23) 

where a(t) and (j>(t) may be regarded as random variables. The spectrum 
of s(t) is depicted symbolically in Figure 3.6a. The fore and aft spectra 
are distinguished from one another by "coloring" the fore spectrum as a 
rectangle and the aft spectrum as a triangle. As indicated in the receiv- 
er chain, the return signal is split equally into two channels. This sig- 
nal in the upper channel is coherently demodulated with cos oi^t and low 
pass filtered to yield 

x(t) = h a(t) cosset) (3.24) 

The upper channel is commonly called the cosine channel or the in-phase 
(I) channel. Demodulation and low pass filtering in the lower channel 
yields 

y(t) = Js a(t) sinc|j(t) (3.25) 


21 



FIGURE 3.5 A SIMPLIFIED BLOCK DIAGRAM OF THE CW FAN BEAM 
SCATTEROMETER 









where product modulation with the quadrature reference sin w^t has 
occurred. The lower channel is commonly called the sine channel or the 
quadrature (Q) channel. The spectra of x(t) and y(t) are illustrated 
in Figures 3.6b and 3,6c, respectively. 

A comparison of Figures 3.6b and 3.6c shows that the aft and fore 
spectra can be retrieved simultaneously if a complex signal 

z(t) = x(t) + j y(t) (3.26) 

is formed. An examination of the spectrum of z(t) indicates that the aft 
spectrum occurs for w > 0 and the fore spectrum for oi < 0. 

Since the DFT can also be applied to complex signals as well as real 
signals, the above result shows that the fore and aft spectra can be 
simultaneously filtered using CZT techniques to implement the DFT. The 
configuration for implementing the CZT using charge coupled devices and 
analog multipliers is described below. 

3.5.2 The Implementation Technique 

I 

It is advantageous to use the sliding version of the CZT, since 
many sequential measurements are required to estimate the PSD. The 
actual implementation method is best understood by separating the real 
and imaginary parts of the sliding CZT. When the sliding CZT of z(t) 
is taken, Z^(k) can be rewritten in the form 

S 

N 

U (k)l = Z [cos'iT(m-N)^/N + j simr (m-N)^/Nl 
m=l 

[x(k“m+N) + jy(k-m+N)]. (3.27) 

[cosir(,k“m+ri)^/N - j sin'ir(k-m+N)'^/N] 
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A careful interpretation of the arguments within the above magnitude 
suggests the implementation technique shown in Figure 3.7. Both x(t) 
and y(t) are pre-chirped and appropriately summed to form the real and 
imaginary valued entries into the transversal filter bank. Four trans- 
versal filters are required to form the cross multiplication products of 
the complex valued signal entering the filters. The real and imaginary 
parts of the CZT without the post-multiplication are formed by differenc- 
ing the outputs of the transversal filters as illustrated in Figure 3.7. 
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4.0 SYSTEM DESIGN RATIONALE 

4.1 Introduction 

As is the case with any system, the actual design is a compromise 
between user requirements and system constraints. The design of real 
time processors for the NASA scatterometers is no exception. Ideally 
the scatterometer should provide high precision estimates of o° with 
infinitesimal angular and ground resolutions. However, as will be shown 
below, the precision, angular resolution and ground resolution interact 
in such a way to prevent maximizing all three parameters simultaneously. 

In addition to maximizing the precision and resolution parameters, the 
user is also interested in achieving a reasonable accuracy to peniiit 
comparative analysis of the processed data at different view angles and 
polarizations and with scatterometer data from other sources (also 
presumably calibrated). 

A list of the factors which can potentially influence the performance 
of the scetterometer/processor system is shown in Table 1. The source 
of error is described in the left-hand column. The system performance 
factors most influenced by the error source is reflected in the middle 
column. The origin of the error within the system is identified in the 
right-hand columns. Most of the performance parameters are manageable 
by the processor provided that the scatterometer has been appropriately 
designed. Those that are manageable are treated below as well as in 
subsequent chapters to develop the processor design rationale. 


27 


TABLE 4.1 FACTORS INFLUENCING SYSTEM PERFORMANCE 


Error Source 

Affected 

Performance 

Factor 

Origin in Sj 

astern 

Scatterometer 

Processor 

Aircraft 

Target 

1. Fading Signal 

Precision 


r 


X 

2. Finite Doppler Bandwidth 

Precision & Angular 
Resolution 


X 



3. Finite Record Length 

Ground Resol tuion 
& Precision 


X 



4. Filter Sidelobe Level 

Accuracy 


X 



5. Bit Truncation 

Precision 


X 



6. Inversion Approximation 

Accuracy 


X 



7. Uncertainty in Altitude 

Accuracy 



X 


8. Aircraft Attitude 

a) Illuminated area 

b) Polarization 
decomposition 

Accuracy 



X 

X 


9. Transmitted Power 

Accuracy 

X 




10. Polarization 

.Accuracy 

X 




11. Non-Stat ionary Return 

Accuracy 




X 

12, Beamwidth 

Accuracy & Angular 
Resolution 

X 




13. Pattern Sidelobes 

Accuracy 

X 




14. Pattern Gain 

Accuracy 

X 
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4.2 Definition of System Design Paranieters 

To identify the processor's mode of operation it is important to 
define various parameters associated with fan beam systems, In this 
regard such terms as angular resolution, ground resolution, scan length, 
beam resolution, ground track coverage, etc, must be clarified to arrive 
at the impact of these parameters on the system design. 

Angular Resolution 

As indicated in Section 3.2 the angular resolution of a fan beam 
scatterometer is dictated by the physical beamwidth in the crosstrack 
dimension and by the bandwidth of the Doppler filter in the intrack di- 
mension. If H(w) denotes the normalized voltage transfer function of 
the Doppler filter, then an affective bandwidth may be defined as 

00 

B = 2“/ lHU)l'du) (4.1) 

-00 

where the normalization has been applied so that {| H(w) [} = 1 
when H(w) represented in low pass form. An effective intrack beainwidth 
may be related to the effective bandwidth through the Doppler relationship 


AO 

when (j) = 0. 


= XB 
2VCOS0 

A0 is defined to be the angular resolution. 


(4.2) 


Beam Resolution 

The beam resolution in the cross track dimension is given by 


= (h tano) A(j) 


(4.3) 
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where Ai|) is the crosstrack angle subtended by the two way beam when pro- 
jected on the ground plane. The beam resolution in the intrack dimen- 
sion is 


'’B • jsk 

See Figure 4.1 to clarify these definitions. 


(4.4) 


Scan Length 

Scan length is simply the ground track distance vT traversed by the 
aircraft during a single integration period T where v is the ground 
velocity. See Figure 4.2. 

Ground Track Coverage 

The ground track coverage is that entire length over which a 
radar return was observed. The coverage includes the scan length as 
well as the initial coverage within the beam, ie., 

Lc = Pb +vT 
See Figure 4.2. 

Ground Resolution 

The ground resolution may be defined in several ways. However, 
for the purposes of this design effort the ground resolution is defined 
as an effective ground length over which radar returns have primarily 
contributed to the measurement as implied in Figure 4.2. It consequent- 
ly emphasizes that portion ot the ground track which is repeatedly in 
view within the beam subtended by A0. 
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Three cases may be identified as illustrated in Figure 4.3. The 
ground resolution is therefore defined as 


^ vT + pj. 


p « < 


if vT * p 


B 


vT if vT > P 3 

From the above definitions an important observation can be with- 
drawn. When the three ground resolution cases are ordered as implied 
in Figure 4.3 it may be shown that 


(4.5) 



and 

la. « £ 2 . (4.7) 

13 Pa 

where p^. is the ground resolution corresponding to T^. For a constant 
Doppler bandwidth these results imply the following conclusion: 

Case 2 maximizes the ground resolution consistent with maximizing 
the precision. It is also interesting to note that Case 2 maximizes the 
precision for a given coverage interval as demonstrated in Appendix A. 
In this case the design criterion requires that 


Pg - vT (4.8) 

at any incident angle. This conclusion will be used in identifying 
appropriate design theories below. 
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4 . 3 The Theory for Constant Precision. Constant Angular Resolution 
and Constant Ground Resolution Designs 

Among the many system designs which could be considered it, is 

helpful to limit considerations to three basic design approaches: 

(1) constant precision, (2) constant angular resolution and (3) constant 

ground resolution. The theory for each is presented below and their 

characteristics are compared in a final subsection. 


4.3.1 A Constant Precision Design 

A constant precision design approach requires a constant BT product 
at each incident angle to be processed. The implication deduced from 
Section 4.2 is helpful in assigning B and T so as to achieve an accept- 
able BT product. At the smallest incident angle 6 ^ the BT product may 
be maximized for a given coverage L. by requiring 

C 


Then 


P 3 I = vT 


h A9 1 


V COS'^01 


and 


(4.9) 


(4.10) 


B = 2v COS 01 A 0 i/X 

The viewing window at 0 j is therefore specified as 


A0 


.f 


3T X cos^ 0 i 
2 h 


(4.11 


(4.12: 


where BT is chosen to achieve the desired precision. When A 0 ^ is with- 
drawn from equation (4.12), T and B are uniquely assigned by equations 


35 


> 


(4.10) and (4.11), respectively. On pragmatic grounds the integration 
time must be constant at all viewing angles, Therefore B is also constant. 
As a result, the angular resolution, beam resolution, and ground resolution 
at the remaining view angles 0j^ become 

“ '2vcos0|^ (4.13) 


^Bk 


XhB 

^VCOS^Oj^ 


(4.14) 


and 


- XhB 
^k “ 4vcos®0i 


rn j COS^0l 1 


(4.16) 


From the above results it is noted that the angular resolution is inverse- 
ly proportional to v cos0|^, the beam resolution is proportional to h/vcos®0|^ 

COS ^ 0 ! 

and the ground resolution is proportional to h {1 + cos^ ' e 

k 

4.3.2 Constant Angular Resolution 

A constant angular resolution approach requires that A0|^ be constant 
at all viewing angles, say A0. Once A0 is assigned, the bandwidth at each 
0|^ is given by 

2V COS0. A0 

B, (4.16) 

and the beam resolution by 


- bA0 
^Bk “ cos^0. 


(4.17) 
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The precision and ground resolution require a rationale to assign T. 
Once again it is convenient to maximize BT at the smallest incident 
angle for a given coverage. This requires that 



(4.18) 

The remaining parameters then become 


j _ hA9 
V COS^01 

(4.19) 

2hcos0. A^0 
~ Xcos^^Bi 

(4.20) 


and 


- hA9 
" 2cos^0i 


{ 1 + 


C0S^6i 1 

co?^ ^ 


(4.21) 


at each viewing angle 9|^ > 9^. 

4.3.3 Constant Ground Resolution 

A constant ground resolution approach requires that p be constant 
at each incident angle. With p specified, the precision may be maximized 
at each incident angle by requiring p = pg = vT in accord with Section 4.2. 
As a result of this imposition 


A0(^ = pcos^0|^/h 

(4.22) 

T = p/v 

(4.23) 


and 
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(4.24) 


(BT)|^ » 2p^ cos^0|^/X h 

4 • 4 A Comparison of the Design Approaches 

To evaluate the three design approaches, the nominal design guide- 
lines shown in Table 4.2 were employed for C band and L band systems. 

The guidelines were primarily applied at the smallest incident 
angle and were allowed to vary at the larger incident angles depending 
on the design approach. The results of this evalution are shown graph- 
ically in Figures 4.4 and 4.11. 

The first four graphs apply to the C band processor whereas the 
latter four apply to the L band processor. Each figure identifies and 
compares a single system performance parameter over the entire range of 
incident angles for the three design approaches. The graphs are para- 
metrically identified by the design approach: CP = constant precision, 

C6R = constant ground resolution and CAR = constant angular resolution. 

Table 4.2 Nominal Design Guidelines 


Parameter 

Value 

Units 

Aircraft velocity 

150 

knots 

Aircraft altitude 

1500 

feet 

Angular resolution (nominal) 

C band 

3 

degrees 

L band 

6 

degrees 

Ground resolution(noniinal) 

C band 

25 

meters 

L band 

50 

meteri 

Precision factor (nominal) 

C band 

50 


L band 

50 
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FIGURE 4.4 THE DEPENDENCE OF PROCESSING PRECISION ON 
VIEW ANGLE FOR THE THREE DESIGN APPROACHES 






FIGURE 4.5 THE DEPENDENCE OF ANGULAR RESOLUTION ON 

VIEWING ANGLE FOR THE THREE DESIGN APPROACHES 
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FIGURE 4.6 THE DEPENDENCE OF GROUND RESOLUTION ON VIEWING 
ANGLE FOR THE THREE DESIGN APPROACHES 



FIGURE 4.7 THE DEPENDEMCE OF BEAM RESOLUTION ON VIEWING 
ANGLE FOR THE THREE DESIGN APPROACHES 








VIEW ANGLE FOR THE THREE DESIGN APPROACHES 



FIGURE 4-9 THE DEPENDENCE OF ANGULAR RESOLUTION ON 

VIEWING ANGLE FOR THE THREE DESIGN APPROACHES 



I 

I 

\ 
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FIGURE 4.10 THE DEPENDENCE OF THE GROUND RESOLUTION ON 

VIEWING ANGLE FOR THE THREE DESIGN APPROACHES 



VIEKINS AN5LE (degrees) 

GURE i.n THE DEPENDENCE OF BEAM RESOLUTION ON VIEWING 
ANGLE FOR THE THREE DESIGN APPROACHES 


From these graphs the following feature!^ are noted; 

1) . When constant precision is imposed, the angular, beam and 
ground resolutions degrade with incident angle; however, the degrada- 
tions are only significant for angles greater than 45®, 

2) . When constant ground resolution is imposed, constant beam 
resolution is also realized. The precision, however, degrades at the 
larger incident angles but is useable to 50°. The angular resolution 
increases rapidly at the large incident angles. The very high angular 
resolution at the large incident angles may preclude selecting a correct 
pattern gain at the large incident angles when converting to a°. 

3) . When constant angular resolution is imposed, the beam resolu- 
tion and ground resolution degrade at large Incident angles. The per- 
formance, in general, lies between the constant ground resolution and 
constant precision design approaches, 

If a single design approach were to be selected among the three, 
it is apparent that the constant angular resolution approach represents 
a good compromise between constant precision and constant ground resol- 
ution, The constant precision and constant ground resolution designs 
may, however, suit some experiments better. The constant precision design 
is attractive in those cases where high precision is required on a single 
cell, particularly at the larger viewing angles. The constant precision 
approach may also be helpful in those cases where a large spatial average 
is required. The constant ground resolution approach is attractive for 
those applications v/here well metered - high resolution data are required 
along the intrack dimension. This design approach is consequently attrac- 
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tive for those targets which are highly nonhomogeneous. 

Since the scatterometer processor is under software control, it 
is conceivable to provide an experimenter with any design option. The 
constant angular resolution design represents a good compromise among 
the approaches, however, when a single approach must be taken. 
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5.0 SYSTEM ARCHITECTURE AND OVERVIEW 


5.1 Target and Development System Architectures 

The objective of the scatterometer processing system is to 
provide real and post time conversion of two channels of scatterometer 
datd, like and cross polarized signals, into o° estimates at eight (8) 
viewing angles: 5°, 10°, 15°, 20°, 30°, 40°» 50° and 60°. Processor designs 
were to be developed for the NASA 4.75 GHz and 1.6 GHz fan beam 
scatteromecers. The efforts were 1) to emphasize a standardize design 
approach suitable for use with these scatterometers as well as future 
scatterometer systems and 2) to utilize design experience from the 
previous 13.3 GHz scatterometer processor project. An appropriate target 
system architecture using the CZT approach to Doppler processing and 
meeting the above stated objectives is illustrated in Figure 5.1. The 
system consists of two major subsystems, viz., the PSD estimation subsystem 
and the micro-processing subsystem. A number of interface units are 
also provided to permit control of the system, entry of data and storage 
of processed data. Also a special alignment generator not required 
during operation but helpful in aligning the CZT filtering unit prior 
operation is shown. 

The PSD estimation subsystem has two channels to handle like and 
cross polarized return signals. Each channel converts the quadrature 
signals into discrete PSD estimates over the fore and aft Doppler spectra 
simultaneously. The estimation technique is based on the CZT technique 
which may be regarded as an analog technique of implementing the discrete 
Fourier transform (DFT). The detection (squaring) and accumulation 
(averaging) of the spectral amplitudes is performed digitally by a 
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OUTPUT 

INTERFACE 



FIGURE 5.1 ARCHITECTURE OF THE TARGET SYSTEM 


















dedicated processor. 

The micro-processing subsystem is composed of a digital micro- 
computer, memory and associated software. The role of the micro-pro- 
cessing subsystem is 1) to control the scatterometer processor through 
a softv/are operating system, 2) to select app,u( ate PSD estimates and 
to use them within the radar scatterometer equation to invert for o° 

values on the eight viewing angles"**lfR ff to accept, store and transfer 

i 

various data required by the processor or the experimenter. 

Communication between the micro-processor and various peripheral 
systems is provided by the interface units indicated in Figure 5,1. 

Atnong these interface units is the operator interface and display. All 
system functions are initiated through this interface by the operator. 

The display is also used by the micro-processor. 

The system of Figure 5.1 represents but a single architecture for 
the target system. It may not be the architecture of the final system 
but it will be close. Implied in Figure 5.1 is a single micro-processor 
to service both scatterometer channels. However, in view of the amounts 
of data and the number of computations involved, a single micro-processor 
may be unable to convert both channels of scatterometer to o° values at 
eight angles without large gaps between successive ground cells. A 
fast floating point processor such as the Advanced Micro Computer 
95/4000 may permit use of a single processor. However, it may be 
necessary to dedicate a micrc-processor to each scatterometer channel. 

To make an assessment of the number of processors requires that the 
software design be reduced to machine coding and that the machine be 
specified. 


51 


In view of this uncertainty and with full realization that a complete 
design effort requires an iterative effort between paper design (called 
for in this contract) and laboratory evaluation, an engineering model 
which is expandable to the target system was actually designed. The 
architecture of the proposed design is illustrated by the block diagram 
of Figure 5.2. The development model is restricted to single PSD 
estimation channel and a single micro-processor. The software is suffi- 
ciently general to permit processing of like or cross polarized data for 
any transmit polarization. However, the processor must be cued 
externally as to which polarization channel the PSD estimation subsystem 
is connected. A single channel processor of this type is sufficiently 
simple to fully evaluate the total system design. It can be readily 
expanded to a two channel system, terminating in either a single micro- 
processor or two micro-processors. The expansion simply requires that the 
controller signals be routed to two channels and that simple modifications 
be incorporated into the software whether one or two micro-processors 
be required. 

5 . 2 An Overview of the Operation of the System 

As indicated above, the scatterometer processing system consists of 
two major subsystems together with the necessary interfaces to permit 
communication with various peripheral devices. The relationships among 
the major subsystems and interface units was shown in Figure 5.2. An 
alignment generator, although not required during operation, was also 
shown. 

When the system is powered, software control of the system is 
assumed by the micro-processor within the so-called RESET mode. Within 
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FIGURE 5.2 ARCHITECTURE OF AK ENGINEERING MODEL 
EXPANDABLE TO THE TARGET SYSTEM 















this mode the aircraft, operator and output interface units, and the 
CZT filtering unit within the PSD estimation subsystem are active (see 
Figure 5.2). When the system is within this mode, the operator may over- 
ride certain aircraft parameters arriving at the aircraft interface 
should they be inaccurate or missing in the aircraft data stream. From 
the RESET mode, scatterometer data may be processed ^n a flight line by 
entering the RUN mode. 

Within the RUN mode, the software controller determines the number 
of 512 point sub-records to be processed to form an average return from 
the 512 beam resolution cells in view by the CZT filters. The number of 
sub-records Nj^ and the address to which the accumulated reserves are to 
be stored are transferred to the PSD controller (see Figure 5.2). Upon 
this initialization, the accumulator and detector are activated at the 
beginning of a CZT cycle. The PSD estimation subsystem then accumulates 
Np estimates in each spectral channel. At the end of the Np sub-records 
the detector and accumulator are halted and a DMA (direct memory access) 
transfer is made from the accumulator to the micro-processor memory. If 
the processor has not been halted by the operator, the detection and 
accumulation cycle is re-initiated by the micro-processor once the DMA 
has been completed. It should be noted that the filtering sub-section 
operates continuously between accumulations to avoid start up transients. 

A closer look at the PSD estimation subsystem will indicate that 
this subsystem filters the fore and aft Doppler spectra of the radar 
return to form estimates of the return power is 512 parallel spectral 
channels. Of these channels, 256 are available to characterize the 
fore spectrum and 255 the aft spectrum. The remaining channel monitors 
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the return from the nadir point (this return is suppressed by the radar 
and the processor). A sliding CZT algorithm, as discussed in Section 3.5, 
is employed tc form repeated estimates of the power return within each 
channel. Several estimates are sunmed to form an improved estimate of 
the average power. 

The format of the summed spectral estimates in the 512 channels is 
illustrated in Figure 5.3. When the forward CZT is formed on the complex 
signal x + jy, the aft spectrum appears in the first 257 accumulation bins 
(channels) and the fore spectrum in reverse order in the latter 255 
accumulation bins. Some of the spectral channels among the 512 channels 
are reserved for the calibration and polarization tones. The effective 
bandwidth of each channel is given by B = fg/512 where f^ is the sampling 
frequency. The frequency resolution, i.e., the separation between spectral 
estimates is also equal to B. The normalized frequency response of each 
filter in dB is illustrated in Figure 5.4. The filter efficiency to the 
first sidelobes is 90.3% and through the first sidelobes is 95.5%*. The 
effective bandwidth is also equivalent tc the width of the mainlobe. 

The average spectral estimates together with calibration and polari- 
zation tone levels are transferred from the PSD estimation subsystem to 
the micro-processing subsystem through a DMA process initiated by the 

*It is possible to increase the mainlobe efficiency by weighting 
the tap points on the CZT transversal filter. Such a device is available. 
However, this design is not recommended since 1) the precision will be 
reduced by a factor of two (the adjacent channel outputs are highly 
correlated) and 2) the S/N ratio referred to the output of the weighted 
transversal filter degrades by a factor of two (the noise is primarily 
governed by the post amplifier and signal output is reduced when 
weighting is used). 
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PSD controller. Once the detector and accumulator are re-initiated, the 
micro-processor, using data from the aircraft interface together with 
invariant calibration constants stored in ROMs (Read Only Memories), 
converts the spectral and calibration data to estimates at the required 
eight viewing angles. Adjacent spectral estimates are summed about each 
viewing angle to form a total return within the desired angular resolution. 
The spectral lines are chosen dynamically to track the specified viewing 
angle. 

The processed scatterometer data and other parameters are stored in 
an array of the micro-processor memory for each of the viewing angles. 

The 0° estimates at the eight angles are stored in memory in an askewed 
fashion to provide near collocation of the returns on a single cell. 

When the re-ordered data is available on a single cell at all angles, 
it is written out to the output interface which in turn transfers it to 
magnetic tape. The transfer of the data continues until the operator 
halts the processor. When halted, the processor places an end of file 
indicator within the output array, transfers the partially filled array 
to tape and enters the RESET mode to await instructions from the operator. 
At the beginning of each accumulation cycle, appropriate parameters are 
withdrawn from the aircraft data channel for use in the computations 
and for transmittal to the output tape. 


6.0 Software Development For C«Band/L-Band Real-Time Radar Data 
Processor 


6,1 Background 

During 1979, under NASA Contract NAS9-15311, the analysis and 
design of a 'real-time* software algorithm for processing fan-beam 
radar data was completed, The product of the 1979 work was a newtech- 
nique for producing aligned, digital scattering coefficient values for 
up to eight aft viewing angles at the same time the raw data was being 
acquired. The increased capability of this data reduction technique 
was due mainly to the use of a hardware chirp Z- transform (CZT) to 
simultaneously produce all the filtered frequency domain data from the 
analog I and Q channel inputs. A previous hardware processor used 
individual analog filters which were sampled sequentially. This 
processor was designed to perform only a quick look, data validation 
function, rather than provide fully reduced cross section data. The 
sequential filtering technique was inadequate for full resl-time pro- 
cessing in that it could not provide adequate along track coverage 
while maintaining an acceptable time bandwidth product [1]. 

The current production techniques used for processing radar data 
to scattering coefficients utilize several stages of computer process- 
ing, all of which require expensive digital Fourier transforms to con- 
vert the data from the time domain to the frequency domain. The 
objective of the effort during this contract period was to demonstrate 
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that this entire process could be accomplished with micro-processor 
technology along with a relatively inexpensive CCD transversal filter 
to accomplish the normally expensive domain transformation of the 
input data. 

6.2 Software Algorithm 

6.2.1 General Concept 

The computational sequence used for sigma-zero calculations is 
essentially the same as that described in Section 8.0 of reference 
[1]. Some minor changes were made in the way some of the individual 
parameters are developed, and in the order and refresh rate of the 
aircraft data input. The most significant difference in the overall 
system is in the number of options available to the operator when set- 
ting the mode of operation. 

6.2.2 System Initialization and Set-Up 

In its simplest form the system logic is as illustrated in 
Figure 6.1. The initialize task opens the I/O port for the CRT, the 
serial port for the Bi -Phase L, and sets the CZT board for mapping the 
frequency domain data to micro-processor memory. Also initialized are 
the NERDAS port and the Interrupt Controller on the SBC 80/20. Table 
6.1 defines the I/O Ports used by the system. 

After initilization, the software begins a series of queries to 
the operator to determine the exact set-up and run mode options to be 
used. The systan software is designed to process either C-Band or 
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Initialize I/O ports, 
CZT-board, interrupts. 


Acquire processing variables 
set optional parameters. 


Read NERDAS, set CZT- 
board, evaluate Tq' values. 


Read CZT-board, evaluate 
power ratio and Tq values 
buffer and output data 
to Bi-phase-L. 


FIGURE 6.1 Overall System Structure. 




61 




TABLE 6.1 


I/O PORTS USED BY NASA-CZT PROCESSOR 


PORT ADDR (HEX) LOCATION (BOARD) FUNCTION 


08 

CZT BOARD 

Load NBR RODS 

09 

CZT BOARD 

Begin DMA Transfer 

OA 

CZT BOARD 

DMA ADDR (LSB) 

OB 

CZT BOARD 

DMA ADDR (MSB) 

CC 

SBC 116 

CRT Data, I/O 

CD 

SBC 116 

USRT Control Port 

D8 

SBC 80/20 

Interrupt Controller, 
Control 

D9 

SBC 80/20 

Interrupt Controller, 
Control 

E4 

SBC 80/20 

Bi-phase-L, Data Port A 

E6 

SBC 80/20 

B1-phase-'L, Data Port C 

E7 

SBC 80/20 

Bi-phase-L, Control PI/0 

EC 

SBC 80/20 

NERDAS, Data IN 

ED 

SBC 80/20 

USRT Control Port 
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L“Band input data of any desirp.d polarization combination. Consider- 
able flexibility has been given to the operator regarding use of sys- 
tem constants and aircraft data inputs. Further, the operator is 
allowed to change the grouni cell resolution and thus may make inter- 
pretive analysis of resolution effect on sigma-zero for repeated pas- 
ses through the same data set. 

Figure 6.2 illustrates the general system layout from the opera- 
tor's point of view. System communication ar,cl control is provided, 
through the keyboard/CRT. One type of input data may be selected and 
processed; e.g., vet^ical, cross-polarized, L-band„ The system may be 
operated in various combinations of 'Open-Loop' or 'Timed' modes. 
During 'Open-Loop' operations, no defined start time is given and no 
defined stop time is given. The system begins processing on permis- 
sion of the operator and continues until the operator gives the stop 
command. In the 'Timed' fnode the system is given a data set start 
time; e.g., 14:15:21, and a data set length in seconds. The system 
begins processing on permission of the operator and on detection of 
the desired start time in the NERDAS Bi-phase-L input frame. Proces- 
sing continues until the specified number of seconds of data have been 
acquired. 

Specific options given the operator during operation vary 
according to whether the first data set is about to be taken or sub- 
sequent sets are being acquired. The Flow charts in Appendix A give 
complete details on all available options and exactly how they are 
provided. Some highlights of the system flexibility are: 
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Polariz; (HH/HV/VV/VH) 
Band; (L/C) 


FIGURE 6.2 General System Layout 
Real Time Processor. 
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a. 

b. 

c. 

d. 

e. 


f. 

g- 

h. 


Band {L/C}, select L or C 
Polarization {HH/HV/VV/VH}, select one combination 
Cell Resolution Over-ride | YES/NO’ 

System Constant Over-ride | YES/NO 
NERDAS DATA Over-ride {YES/NO} 

If 'YES': 


ALTITUDE Over-ride {YES/NO} 
DRIFT Over-ride {YES/NO} 
ROLL Over-ride {YES/NO} 
PITCH Over-ride {YES/NO} 
VELOCITY Over-ride {YES/NO} 
Start Time Select {YES/NO} 

Run Time Select {YES/NO} 

Display Set-up Data {YES/NO} 


On the second and subsequent data sets the operator may choose 
whether the above set-up is retained or whether a new set-up is used. 
All necessary data for calculating the sigma-zero values is requested 
from the operator during the set-up phase of the program. 

As each operation is initiated, appropriate pointer settings are 
computed for accessing the correct beamwidth, wavelength, filter size, 
calibration frequency, noise frequency band, antenna gain table, 
roll-off function, processing constant, and aircraft data. In 
addition, flags are set (which are later put in the output data frame) 
that indicate to the data user which options were selected and which 
over-rides were used. Finally, after the start and stop times are set 
(if selected) and the option to display the set-up has been made, the 
operator is given the option to start taking data. If the operator 
response is 'Y', the system begins reading and processing the raw 
input data. As each set is processed it is placed in the output data 
buffer for transfer to the Bi-phase-L output port. 

To ease the formatting burden, especially in the set-up module, 
the main driver program was coded in FORTRAN, using an INTEL MDS230 to 
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enter and prepare the source code for the INTEL F0RT80 compiler. 
Although the FORTRAN was used extensively for internal data format- 
ting, all I/O is handled by special device service routines, each 
written in assembler language. 

In the set-up module all mathematical expression were accom- 
plished using the INTEL floating point software library routines. 
Since speed in this portion of the system was not critical, the time 
saved in coding was considered a good trade-off for additional core- 
usage and slower execution. However, all floating-point evaluations 
in the data processing and output modules are done using the AMC 95/ 
6011 hardware arithmetic unit. Special device service routines were 
written in assembler language to perform all the required operations. 
Appendix D lists all AM9511 routines and defines their particular 
function. 

6.2.3 'RUN' Mode of Operation 

After all set-up data has been acquired, the 'RUN' mode is 
initiated by an operator 'Y' response to the system query. The 'RUN' 
mode reads NERDAS, sets integration time and starts integration by the 
CZT-board. Initial data is processed to calculate values for each 
of the eight viewing angles. 

6. 2. 3.1 Calculating cj°' 

The expression which must be evaluated for each of the eight 
viewing angles is 

= (4tt) ^ cl Zw(fdci ) R^eLi ) PR(ePi) (6.i) 

K GG(e'ii) A(6Li) Pt 
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where; 


estimated scattering coefficient. 


X = wavelength. 

Cl « cable loss term. 

K = system constant. 

Zw(fdc^) = system roll-off, function of doppler frequency, 
fdc^, for each filter center. 

GG(6Li) = antenna gain, function of viewing angle through 
the antenna. 

R*‘( 0 Li) = target cell range, function of viewing angle. 
A(0 li) = cell area, also function of viewing angle. 

PR(0Di) = received power, function of each doppler angle. 

Pj = transmitted power, 
i = index for viewing angle, i=l, 8. 


Note that after integration is started, all the terms in the 
above expression can be evaluated except the power ratio, Pp/Py. 
After arranging the equation so that 

a°i = 0°'T(PRi/Px) (6.2) 

where 

0 °' = ( 6 . 3 ) 

i X^ K GG A 

it can be seen that a°' may be evaluated while the CZT-band is per- 
forming the integration. This is done in the SIGMAl code module for 
each of the eight viewing angles. The value (4 tt)Vx^ is a stored- 
constant value, one for each band. Similarly, Cl/K are stored 
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values. Hov<ever, there are eight values in all, four for each band. 
The roll-off, is calculated using an appropriate expression for 
the band and polarization being processed. The antenna gain, 6G, is 
acquired by tabU> look-up using an appropriate table of values for the 
band and polarization in use. The L-band tables have values for 
angles ranging over -70 to +10 degrees, while the C-band tables range 
from -60 to 0 degrees. 

The R“^/A term is evaluated as two separate values, R*^ and A. The 
range, R, is evaluated using the expression 

Rj = H/cose i (6.4) 


I 

where H = altitude, and 
' 0 ^- = viewing angle 

i 

I The above expression is derived from the system geometry shown in Fig- 

ure 6.3. The range expression is not exact, but is sufficiently 
accurate as jusified in Reference [1], Section 8.0. The area term. A, 
is evaluated using the expression 

A = W'(Y2 - Yi)/cos4. (6.5) 

where 

W - cell width, function of altitude, beamwidth, viewing angles 
and aircraft roll. 

Yi = Y-coordinate of doppler contour, lower frequency. 

Yg = Y-coordinate of doppler contour, upper frequency. 
i|) = aircraft drift angle. 
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Detail justification for the above expression is available in Referen- 
ces [7] and [83. The software encoding of the above expression 
requires the upper and lower Doppler frequencies that define the cell 
boundary; therefore, they are evaluated before area, A. The upper and 
lower Doppler frequency defining each cell require in turn, each cell 
center coordinate, Doppler angles and bandwidth. 

The cell center coordinates are calculated using the two coordi- 
nate transformation vectors 


X' 

U 

0 

0 


X" 



Y' 

iu 

COSY 

sinY 


Y" 

+ 

0 

Z 


“SinY 

COSY 


Z" 


H 


and 


X 

Y 


COS(j) 

-sin(}) 

0 


X' 

sin(j) 

cos^ 

0 


Y' 

0 

0 

1 


Z' 


where = aircraft roll angle and (j) = aircraft drift angle. 


( 6 . 6 ) 


(6.7) 


From the above, the viewing point coordinates in Figure 6.4 are 


X i*= (-H/cosfltaneL^ *cos<|) + HtanH'sin(}) 


( 6 . 8 ) 


and 


Yj = (-H/cosw)tan 0 Li- 'sin<|) - Htanwos(|) (6.9) 


where tane'Li " -(tan^OLi " tan^'i') V^cos'i'. Software checks are 
provided to guard against negative frequency solution where 0Li<4'; 
i.e., ©Li is always set >^4'. Then each Doppler angle is given by 

©Di = TAN-MXi2/(H^+Yi2))V^ 
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The desired bandwidth is calculated using the expression 

B^j * (2VLjCOS^0D^)/xH 


( 6 . 10 ) 


where V « aircraft velocity (ground speed) 

Lj « cell length (along ground track vector) 

Oo'j « doppler angle to cell center 
X a wavelength, and 
H « altitude of aircraft. 

Actual bandwidth is then 

BW,- = Af[Bi/Af + 0,5]i (6.11) 

where Af is the spectral line width of the filters and the nearest 
integer value is represented by [B^/Af + 0.5 ]j. 

Finally, actual bandwidth is used to evaluate upper and lower 
pointers used to derive power from the filter bank. 

6. 2. 3. 2 Calculating a° 

After all a°' values have been evaluated and after the CZT inte- 
gration has been completed, the calculation of the power ratio values, 

Pri/Pt may be calculated to complete the solution for each oo. 

This is done in the SIGMA2 module for each of the eight viewing 
angles. 

First, the results of the CZT band integration are transferred to 
the memory as 512 integers, 32-bits each. Using the pointers derived 
in the 3IGMA1 module, power ratio values, Ppi/P-, are calculated 

for each viewing angle by summing appropriate sets of the 32-bit 
integers. Next, each aoi calculated using the expression in 
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Equation (6.2). Finally, the Inner execution loop Is completed by 
buffering all the output data quantities and writing the appropriate 
buffer line to the Bl-Phase-L output port. 

The output data frame produced on the Bl-Phase-L output port for 
each pass through the processing loop Is shown In Appendix C. The 
first 54 bytes (108 4-b1t BCD characters) are copies of the aircraft 
NERDAS data as received by the system. These 108 characters contain 
all the time, altitude, location and mission data, Characters 109-172 
contain the processed viewing angles and scattering coefficients for 
each of the eight aft angles. Characters 173-176 and 177-180 contain 
the calibration and noise power respectively, Flag bits and alarm 
words are grouped Into the characters 181-187. Characters 188-256 are 
fill data, each containing a hexidecimal 'D', binary 12. 

6. 2. 3. 3 'RUN' Termination 

Thv' Inner-most execution loop Is terminated only by 1) reset of 
the micro-processor, 2) completing the specified number of seconds of 
data, or 3) operator Input of the 'ESC' character on the keyboard. 
The first type of termination Is a hardware reset and provides no 
logical data set close-out functions. The latter two terminations 
both cause an orderly close-out of the output buffer and the data file 
being transferred to the Bl-Phase-L output port. 

6.2.4 Testing and Evaluation 

Testing was performed In two stages. First, as each executable 
module or sufewiyilne was completed, Independent verification wa» 
performed. In general, this was accomplished by preparing special 
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purpose "drivers" which supplied the parameter and/or buffer 
requirements of the module being tested. This stage constituted the 
bulk of the project schedule. Secondly, an "all-up" systems test was 
performed using all modules and sub-routines, This second stage took 
approximately 1/6 th of the total schedule. 

Module testing was initially accomplished using the hardware set- 
up illustrated in Figure 6,4, The ICE80 (in-circuit emulator) and its 
associated software package in the INTEL MDS230 allowed the software 
being evaluated to be run at almost real-time while residing in RAM 
space provided as part of the engineering breadboard system hardware, 
or within RAM space in the MDS230. Both modes were used, where the 
selection depended on the particular module being tested. 

Over-all system testing was accomplished using the set-up illus- 
trated in Figure 6,5, Aircraft and radar data inputs were provided by 
the Bi-Phase-L input from the 14-Track AMPEX Tape Unit. Bi-Phase-L 
output was captured by the TI980, partially decoded and recorded on 
the 9-track TI979A Tape Unit, Final decoding of the Bi-Phase-L output 
data was done as a post-run task and the results printed on the print- 
er for analysis. During early May 1980, several demonstration runs 
were made using the system shown in Figure 6.5. These runs all demon- 
strated the capability of the system to process C-Band data at a rate 
of one data frame per 1.5 seconds. The output data quality was com- 
pared to data generated by NASA for the same input data set. The 
results of the over-all system tests showed that the micro-processor 
based system can produce comparable data (i2.0db) to that produced by 
much larger and more expensive systems. 
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Subsequent to the above tests, two tests were run to find out 
approximately how much time was required to execute each major portion 
of the software. First, the software Inner loop was modified to 
delete area, range, roll-off, and gain calculations. Those deletions 
reduced cycle time from approximately 1.5 seconds to 1.05 seconds. 
Next, the loop was further modified to delete the power-ratio evalua- 
tions. This change further reduced the execution loop time to approx- 
imately 0.55 seconds. The effect of varying the cycle time, tq. Is 
only on the effective repetition rate of the viewing cells occurring 
within the field of view of the radar. This repetition rate also 
varies with viewing angle, producing greater overlap between succes- 
sive cells for greater viewing angles. Figure 6,6 shows the geometry 
of the effect. Using the following expression for cell overlap, 

L * C + vti - vtc (6.12) 

where t^ = Integration time 
tq = cycle time 
V = velocity of the aircraft, 

the parameter plot In Figure 6.7 can be calculated. Note that a cycle 
time of very near 0.5 seconds is required to always have positive 
overlap. Negative overlap Is produced when the successive ground 
cells for a given viewing angle are spaced apart. From the parameter 
plot It can also be shown that for a cycle time of 0.75 seconds cell 
overlaps will all be greater than -50%, giving a ground coverage of 
more than 66%. The above timing tests Indicate tht if closer cell 
spacing Is required, the present system could be used to produce par- 
tially reduced scattering coefficients; i.e., read NERDAS, calculate 
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L = overlap between successive ground cells 
S + C = effective ^ground cell length 
C = instantaneous cell size 
S = Vtj, smear length 

P = Vtr, cycle length; i.e., start of integration for 
cell i to start of integration for cell i+1 


r 

1 


FIGURE 6.6 Cell Overlap Geometry. 
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CYCLE TIME, tc, SECONDS 
FIGURE 6.7 Cell Overlap vs Cycle-Time 
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Integration times, set and integrate using the CZT board, recover the 
frequency domain data, place the time correlated power spectral den- 
sity data on the output port. Also, such a system could operate with 
a cycle time of approximately 0.6 to 0.7 seconds of which approxi- 
mately 0.3 seconds is integration time. A small amount of post 
processing would then be required to yield complete sigma-zero esti- 
mates for each ground cell. 

Another and perhaps more flexible, alternative to fr » proces- 
sing (full or partial) would be to use fewer viewing angles, say 10, 
20, 30, and 45 degrees, or a set selectable by the operator. Approxi- 
mately half the overhead and buffering tasks would be saved. Such a 
system could likely run at very near 1.0 second cycle time while 
producing fully reduced sigrna-zero data. Using selectable angles and 
multiple passes, analysis to any depth desired could be made. 

6.2.5 Memory Requirements 

As illustrated in Figure 6.8, a large amount of ROM (AOOOH) will 
be required to store the data tables and code. A large portion of 
this space (4000H) is required for inter-communications formatting; 
i.e., the I/O formatting of communications between the operator and 
the system. Figure 6.5 also shows the suggested board arrangement to 
accomplish the appropriate program alignment within the ROM/RAM struc- 
ture. 

6.3 Interrupt Structure 

The inner-loop (SI6MA1, SI6MA2) execution uses four interrupt 
lines. The associated software Interrupt jump table is located at 
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0000 

Restart and Interrupt 

4K ROM 


jump table 

SBC 80/20>-4 
4K ROM 

0120 


SBC 116 



16K ROM 

0200 

Code and Data 

SBC 416, #1 



16K ROM 

71AA 


SBC 416, #2 

9FFF 



AOOO 


4K 

Unused 

BOOO 

Variables 

4K RAM 
SBC 80/20-4 

COOO 

and 

16K RAM 

DOOO 

Stack 

SBC 116 

EOOO 

Space 


FOOO 




FIGURE 6.8 Program Alignment within ROM and RAM. 
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4000H. The table is loaded under the module name LDJMPS. A level 0 
interrupt is generated when the CZT-board completes a timed integra- 
tion. The subroutine CZTINT handles these interrupts. It causes a 
flag, lEOC, to be set in the main program, Figure 6.9. The main pro- 
gram, after completing its SIGMAl tasks, is held in ■ ait-loop until 
the lEOC flag is set. After the flag is set, cci> .. v. passes from the 
SIGMAl module to the SIGMA2 module where power ratios are calculated 
u si fig data from the CZT board. 

Level 1 interrupts are used for Bi-Phase-l. output. A level 1 
interrupt signals acknowledge/receipt by the 8255 of the outgoing 
byte. 

Level 3 and Level 4 interrupts are used in NERDAS data inputs. 
The level 3 interrupt signals a byte is pending. The level 4 inter- 
rupt signals that the byte is on the data base. 

6.4 Sub-routine Definition s 

Most of the inner- loop operations, SIGMAl and SIGMA2 modules, 
are accomplished using the subroutine calls defined below. 

AFIX(X,I): converts floating point nwnber, X, to integer and 

places result in I. 

AFLOAT ( I N,FP): converts integer value, IN, to floating point 

format and place result in FP. 

A1NDIX(IN.I80,TEN,AGL,RAD) ; calculates an index value, IX, 
using the expression: 

IX = IFIX(AGL*RAD-TEN) + 180 
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CZT-board 
interrupt at 
end-of- integration 



Sets IE0C=2 


FIGURE 6.9 CZT Interrupt Structure. 






where 


AGL « angle in radians 
RAD s constant, 57,3 
TEN = constant, 10.0 
180 s constant, 80 

Index value is used as a pointer into the L-Band antenna table. 

ALTFP(ALT, CALT, ITN, IHD, ITH, l UN); evaluates altitude of the 
aircraft in meters, tislhg the following expression 

ALT = FLOATdUN + 10*(ITN + 10*(IHD + 10*ITH)) )*CALT 

where lUN = NERDAS UNITS digit 

ITN = NERDAS TENS digit 
IHD - NERDAS HUNDREDS digit 
ITH = NERDAS THOUSANDS digit 
CALT = constant, 0.3048 

Routine is called by DECODA module when decoding NERDAS data. 

AMDADD(R,A1,A2) : evaluates the result of addition of two 

floating point numbers, places result in R: 

R = A1 + A2 

AMDIV(R,A1,A2) : evaluates the result of dividing two floating 

point numbers: 


R = A1/A2 

AMPGNiDGN JWO ,DG ,TEN ,11 ,12 ) : calculates interpolation value 

DGn according to the expression: 

DGN = (FLOATdl - I2)/TEN)*DG/TW0 

where II = upper table index 
12 = lower table index 
TEN = 10.0, constant 

DG = ABS(AGL*57.3) - FL0AT(IFIX( (AGL’^57.3 + 0.5)/2.))*2 
where AGL = viewing angle through the antenna 
TWO = 2»0, constant 

AMDGSQ(GSQ,DGN,IGT,TEN) : evaluates final gain value by adding 

iterpolation value DGN to table value using the 
expression: 

GSQ = FL'UATdGTl/TEN + DGN 

where IGT = table value of gain 

TEN = constant, 10 
DGN = interpolation adjustment 


<*> 
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AMDMUL(R,A1,A2) ; computes product of floating point numbers 
A1 and A2 according to the expression: 


R = A1*A2 

AMDSUB(R,A1,A2) ; evalutes difference of two floating point 
numbers: 


R = A1 - A2 


C BNDW(BNDW.NFEL.DELF) : calculates actual filter bandwidth 
accordihg to the expression: 

BNDW = FLOAT(NFEL,DELF)*DELF 

where NFEL = number of filter elements In the band 

DELF = spectral line width of the filter 

CCELL ( CELL ,DIFF, SUM, ALT) : evaluates ground cell length according 

to the expression: 

CELL = ALT*(TAN(SUM) - TAN(DIFF)) 

where ALT = aircraft altitude, meters 

SUM = viewing angle plus one-half the resolution 
angle 

BIFF = viewing angle minus one- half the resolution 
angle 

CELCNT ( ICNT , VEL ,TC ^ ALT .THET8 ) : computes the number of cells In 
view (required buffer size) for a given altitude and 
viewing angle range* 

ICNT = IFIX(ALT*TAN(THET8))/(VEL*TC) + 0.5 

where ALT » aircraft altitude, meters 

VEL = velocity of aircraft (ground speed), meters/sec 
TC = processor cycle time, seconds 

CINDX(IX,I1,TW0,HALF.;D) : calculates the Index value IX using the 
the expression: 

IX = IFIX((D + 0.5)/TW0) + II 

where D = ABS(AGL*57.3) 

AGL = viewing angle through antenna 
TWO = constant, 2 

II = constant, 1 
HALF = ''onstant, 0.5 

Routine Is called by GAIN when evaluating C-Band antenna gain. 
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CLNPT ( I BPT ,LT ,PC ,PN .XT ,Y I ,ANGp ,ALT ) : calculates buffer 
1 oadt ng pblnters for viewi ng angle according 
to the procedure; 

ANGTD ASIN(ANGTD) 

XT « (ALT*ALT + YI*YI)nAN(ANGTD)**2 
IBPT = LT - IFIX(PC*(TAN(ANGTD) - PN)) 

where ANGTD « doppler angle 

XT = X-AXIS INTERCEPT OF DOPPLER CONTOUR 
IBPT » number of cells aft of nadir to place 
the ao for the given viewing angle 
LT = current nadir position in buffer 
YI = viewing point y-coordinate 
PC « (ALT/VEL)/TC 
PN = (TI/PO'^O.B 
TI = integration time 

CNFILTiNFEL .DEL.BNDM.CELL,FDOP ,ANGLD>YI ,XI ,XT,S) ; cal c ?1 ates 

number of fitter elements r^^red to represent each 
viewing angle band. Routine implements the following: 

XT = (2.*VEL)/SLMDA 

ANGLD ^ ATAN(SQRT((XI*XI)/(ALT*ALT + YI*YI*))) 

FDOP = XI *S IN (ANGLD) 

BNDW = (CELL*XT/ALT)*C0S(ANGLD)***3 
NFEL = IFIX(BNDW/DEL + 0.5) 

where SLMD = wavelength 

ANGLD = doppler angle 
XI, YI = viewing point coordinates 
FDOP = doppler ceriter frequency 

CRG4(RG4,FRTY,ALT,ANGTL) ; evaluates the range of the cell cen- 
" ter f rom the antenna . Value, RG4, is returned in db 
according to the expression: 

RG4 = 40.*AL0G10(ALT/C0S(ANGTD) 

where FRTY = constant, 40.0 

ALT = altitude, meters 
ANGTL = viewing angle, radians 

CZT(N) : set and start integration of N sub-records 

CZTR : start DMA transfer of 512 filter elements from the CZT 

board 

DAREA ( AL , TEN , TRMl , TRM2 , TRM3 ) ; computes the area of a ground 
cell according to the expression: 

AL = 10.*AL0G10(TRM1*(TRM2 - TRM3)) 
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where 


AL » area in db 
TRMl = width of ground cell 
(TRM2 - TRM3) » length of ground cell 

DEC0DA(I0V,NERZ,T1 .FARM); Decodes NERDAS frame. Uses subrou- 
tines as follows: 

ALTER J decodes altitude up to 9999. feet 

DRPFP: decodes drift, roll, pitch up to 99.9 degrees 

VELFP: decodes velocity up to 999. knots 

MINHR: decodes minutes, hours 

TSECS; decodes seconds 

DRPFP( DRP ,CRAD , ISGN , I TN , IHD , I UN ) ; converts NERDAS digits to 
drift, roll, or pitch in radians: 

DRP = FL0AT((IUN + 10*(ITN + 10*IHD) )*ISGN)/CRAD 

where GRAD =57.3 

lUN = units digit of NERDAS 
ITN = TESiS digit r>f NERDAS 
JHD = HUNDREDS digit of NERDAS 
= sign digit of NERDAS 

DVERIF(ICNT,IBUFF ); edits a buffer, IBUFF, containing ICNT bytes 
for A?CII decimal characters. Any character, other 
than decimal or leading unary, is converted to a 
blank. 

DWAIT ; a linkage routine for FORTRAN error recovery. Assumes 
control of program counter until a machine reset. 

FDLEV ( IFDL ,NFEL ,NEV ,FD0P ,D£LF ) : evaluates starting pointer for 
summing spectral power when the number of filter 
elements in the filter band is even and uses the 
expression: 

IFDL = IFIX(FDOP/DELF) + NEV - NFEL/Z 

where FDOP = doppler center frequency 

DELF = spectral line width 
NEV = constant, 3 

NFEL = number of filter elements in the filter 

F DLOD ( I FPL ,NFEL ,N0D ,FD0P .PELF ) : evaluates starting pointer for 

summing spectral power when the umber of filter 
elements in the filter band is odd. It uses the 

expression: 

IFDL = IFIX(FDOP/DELF + 0.5) + NOD - (NFEL - l)/2 
where NOD = constant, 2. 
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^iN(ANG,PCH,IGTBL,IGTBC,NPZN,IBND,GSQ): calculates antenna gain, 

' GSQ, for el then L -Band or C - Band using a table look- 

up and Interpolation procedure. Input parameters are; 

ANG « antenna view angle in radians 
PCH » aircraft pitch, In radians 
IGTBL » L-Band gain table 
IGTBC ® C-Band gain table 

NPZN » polarizkion Identifier, W®1, VH«2, HH®3, HV»4 
IBND « band Identifier, L»l, C»2 

GAML(Z,C1,C4,C5.CZ.F,C3) ; evaluates the value of Z, roll-off, In 
dfa for L-Band using the expression: 

Z ® -(Cl + F*(CZ + C3*F) + (C4 + C5/F)/F) 

where F ® frequency/10. 

Cl, ..., C5 = constants 

GAMC(Z,C1,CZ.C3,C4.C5,C6,C7.F ); evaluates the value of Z, roll- 
off , In db for C-Band using the eH>jy'&ss1on: 

Z « Cl + F*(CZ + F*{C3 + F*(C4 + C5*F))) + (C6 + C7/F)/F 

where F ® frequency/10. 

Cl, ..., C7 “ constants 

GAMMA(FRQ,1B,NPZ,Z) ; evaluates roll-off, Z, using subroutine 
calls to GAMl. or GAMC depending on band Identifier, 
IB. Computes F = FRQ/10. before calling subrou- 
tine. NPZ is the polarization Identifier. 

GETVLUiCIOBUF ,I0BUFF ,N10 ,N20 . lERR ,XHUM) ; acquires from console 
the floating pdTnthiOT^ XNUM. CIOBUF and lOBUFF 
are the Input buffers, NIO = constant, 10, and N20 = 
constant, 20. 

GXI(XI,XT,ALT,RL,DR) : computes X-coordinate, XI, using the 

expres^’on: 

IX = XT*C0S(DR) + ALT*TAN(RL)*SIN(DR) 

where XT = JQRT(ALTnAN(AN6L) )**Z - (ALT*TAN(RL)-^*Z) , 

calculated in subroutine GXT, below. 

DR = drift In radians 
ALT = altitude, meters 

RL ® roll 

GXT(XT,R L,AN6L,ALT); evaluates XT, used In the above subroutine, 
using the expression: 
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XT * SQRT(ALT*TAN(ANGL))**2 - (ALT*TAN(RL))**) 
where ANGL * viewing angle. 

GYKYI ,XT,ALT,RL,DR) ; calculates the Y~coordinate of the viewing 
point, YI, using the expression: 

YI * XT*SIN(DR) - ALTnAN(RL)*COS(DR) 

where XT is as calculated by the subroutine GXT above. 

IBEIL : sends bell character to CRT. No calling parameters. 

IBFILL(L,IBUFF) ; fills 128 byte buffer lines with 99H, L - line 
count and IBUFF “ buffer starting address. 

IBIPHL(IBUFF) ; move 128 bytes beginning at IBUFF to the 8255 
serial port. 

ICRLF: routine to output a carriage return and line- feed to the 

CRT. 

IKEYI ; sets flag for keyboard 'ESC' input. Called by KEYCK. 

INIPIO ; initializes parallel I/O port on the SBC 80/20 board. 

INICn(IPSD) ; initializes CZT board with DMA address, IPSD. 

INI259 : initializes the 8259 interrupt controller for the vested 

mode at 4 uyte intervals. Call table set at 4000H. 
Leaves interrupts enabled but all masked. 

INTGT(ICNT,TI ,DELF ) : calculates the number of subrecords over 

which to integrate. Uses expression: 

ICNT = IFTX(TI*DELF + 0.5) 

where TI = integration time, seconds 

DELF = spectral line width of CZT 

lUSART ; initializes the USART for CRT/keyboard I/O. 

I32SUM(PX,NV,IV) ; calculates the sum r'* a set of 'IV' 32-bit 
integers beginning at NV(i), and extending to 

NV(IV). The result in db is placed in PX, and uses 
the expression: 

PX = 10.*AL0G10(FL0AT(NV(1) + NV(2) + ... + NV(IV)) 

KBPHAL(IOUT) ; control routine for handing Bi-Phase-L output. 

Sends out a 128 byte line from lOUT then backfills 
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the line with 99H. Calls IBIPHI. to write the line to 
the serial Interface. 

KEYCHK: senses the keyboard for an escape character. If no 

character Is pending or If character Is not an 'ESC'* 
no action Is taken. If 'ESC Is found, a branch Is 
taken to subroutine IKEYI to set a main program flag, 
KESC. 

KEYIN(N.IB): key board Input routine. Reads keyboard to place 
N characters In IB, left justified. As each charac- 
ter Is read, It Is echoed to the CRT; 'ESC' Is echoed 
as a '$' . 

MSKSET(MSK) ; sets 8259 Interrupt mask to the value MSK. 

MINHR(IMH,NU,NT) : evaluates minutes or hours from NERDAS digits 

using the expression: 

IMH « NTno + NU 

where NT = tens digit 

NU ® units digit 

MFlAG(IC,IOF.IOUT,IB,NZ) ; moves flag data words to output buffer 
TTne*. 

IC = column count In buffer 
I OF s flag word buffer 
lOUT « output buffer 
IB = band Identifier 
NZ = polarization Identifier 


Seven flag words are placed In the output line then the line Is 
finished by filling it with DDH. 


MFPNUM(FPN3R.IC0L,IBPT,I0UT,IBCD,NK) ; moves up to 8 floating 
point numbers into the output buffer after they have 
>'een converted to BCD (binary coded decimal). NK - 
number values to convert and «iove. FPNBR = buffer of 
floating point numbers. The numbers, starting at 
FPNBR, are converted one at a time Into a BCD buffer 
IBCD, then moved to a location In the output buffer. 
ICOL and IB are pointers Into the output buffer, 
I OUT. 

NERD(ICNT) reads Bl-Phase-L for ICNT bytes of NERDAS data. 

OUTPUT(N,IBUFF): outputs a character string cf N bytes beginning 

at IBUFF. String Is sent to CRT or logging device at 
port CCH. 
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PCPN(PNTI.PC,TC,AlT,vah calculates the parameters PC and PN 
— used in evaluating the required buffer length. 
Implements; 


PC » (Al.T/VED/PC 
PN « (TI/(ALT/VEL)’*0,5 

RUNLMT ( PRE V , lOVER , PARM ) ; checks aircraft data (altitude, drift, 
pitch, velocity) to verify that It Is within 
prescribed limits. The prescribed limits are set by 
monitoring a limited number of previous values. The 
previous values have also been monitored against a 
preset standard, 

SIGSUM(SGMA,ZW,AL.GSQ,sySK.RG4.FP): computes the final value 

^ 

ao~ Dies the expression: 

$GMA == FP + RC4 + SYSK - GSQ - AL - ZW 

where all parameters are In db, 

FP « (47t)Vx^ 

RG4 s R**, range parameter 
SYSK s Cl/K, system constant 
GSQ « GG( Li), antenna gain 
AL * area of ground cell 
ZW » roll-off function value 

TIMEFP(T1,ITS,IM,IH) : computes floating point value of time In 

seconds by ; 

T1 = FL0AT(IH*60 + IM)*60. + FL0AT( ITS)/10. 

where IH = NERDAS hours 

IM = NERDAS minutes 
ITS = NERDAS tenths of seconds 

TMP12(TMP1,VEL,X12) : evaluates the ground cell parameter TMPl 

using the expression: 

TMPl = X12*(VEL*'^2) 

where X12 = XKl or XK2, as defined In Reference (2). 

TRM1(T1BMW,ANG ,ALT,RL); evaluates the ground cell area term T1 
usfng“ tWe expression: 

T1 = 2.nAN(BMW/2.)*(ALT**2)/C0S(RL)/C0S(ANG) 


where 


BMW = beamwidth 
ANG = viewing angle 
RL = roll 


90 


TRM23(TRM,TMP1,RL>DR) ; calculates the ground cell area term TRM 
according to the expression: 


TRM s (-TAN'(DR)nAN(RL) + SQRT(TAN(RL)**2*(TMPI - 1.) 

+ TMP1*C0S(DR)*’^ - (1. - TMP1*C0S(DR)**2) 
where TRM = TRfl2 or TRM3 of the area equation. 

ni:.CS(I T$,ITN,IHD.IUN) ; evaluates seconds from NERDAS date by 

ITS = 10*(ITN + 10*IHD) + lUN 

where ITN = tens digit 

IHD = hundreds digit 
lUN = units digit 

UNPACK! INN, INB) : unpacks a frame of 58 NERDAS NIBS at INN (2 BCD 

values per byte) into a buffer at IN6 with 1 BCD 
value per byte. INB is 55 bytes in length. First 2 
NIBS are skipped. 

VALID(DL ,DF .lOV ,IVAL .PARM) ; validates NERDAS data values unles 
the override flag is !;^t. If value is outside preset 
limits, the default value is used. Whenever default 
values are used an appropriate flag is set in the 
output buffer. Calling parameters are 

DL = preset limit values (buffer of 10 values) 

DF = preset default values (buffer of B values) 
lOV = override flag buffer 
IVAL = flag byte 

PARM = buffer of NERDAS parameters; i.e., alt., pitch, 
roll, drift, velocity 

VELFP(VEL ,CVEL ,ITN ,IHD ,IUN) ; computes velocity of the aircraft 
in meters per second using the expression 

VEL = FLOATdUN + 10*(ITN + 10*IHD) )*CVEL 

where CVEL = 0.514 

IHD = NERDAS hundreds digit 
ITN = NERDAS tens digit 
lUN = NERDAS units digit 

XK12(XK2,XK1 ,SLMDA,BNDW,FDOP) : evaluates the two area terms XKl, 

XK2, using the expressions: 

XKl = 4./(SLMDA*(FD0F » BNDW/2.)**2 
XK2 = 4./(SLMDA*(FD0P + BNDW/2.)**2 
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c - 


where 


SLMDA * wavelength, meters. 

DFOP » doppler center frequency 
BNDW * filter bandwidth 


6.5.0 AMC95/60U Arithmetic Unit Operations 

All Inner-loop arithmetic, except Indexing, Is accomplished using 
the hardware floating point arithmetic board. These operations 
are all accomplished using the following set of device calls: 


AMDCMD: routine to send a command In the A-regIster to the AMC 

?575tFri. 

AMDLOD : loads a floating point nunber at the address In 

register- pair BC Into the AMC 95/60U. 

AMDSTR : stores a floating point nunber In INTEL format from the 

AMC 95/6011 Internal register. Storage address Is expected to be 
1n register pair BC. 

GET: gets a floating point nunber In AMC 95/6011 Internal regis- 

ter and stores It at the address In register pair DE. 

GIVE: gives a floating point nunber In AMC format located at the 

address In register pair DE to the AMC 95/6011 Internal register. 

INTLOD: loads a 16-b1t Integer at address In register pair BC 

TrrtoTThe AMC 95/6011 Internal register. 

INTSTR ; stores a 16-b1t Integer at the address In register pair 
dCi Tnteger Is retrieved from the AMC 95/6011 Internal register. 

I32LOD : loads a 32-b1t Integer at the address In register pair 

BC into the AMD 95/6511 Internal register. 
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CZT Board Interrupt Handler 



lEOC EXTRN 


Set flag signalling that 
Integration Is done 


Set Interrupt Mask to 
Inhibit CZT-board 


Send End of Interrupt 
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SUBROUTINE MVNERD(IOUT, lOBUF 
where I0UT(128,70) and I0BUF(60 
are integer*! 














SUBROUTINE RUNLMT(PREV,PARM,IOVER) 
PREV(5), PARM(5), IOVER(5) 













MPLAG SUBROUTINE 


IB«Band Identifier(l,2) 
IC=Col umn 

IOF=F1ag Word Buffer 
IOUT=Output Buffer 


I0UT(94)«IB 

I0UT(95)=N7. 


I0UT(IC-1+I) 

=I0F(I) 



K=96 


-<ri28? 


IOF(l)=Defaults 

I0F(2)=Alarins 

I0F(3)=Systeni Constant 0/R 
I0F(4)=0ver-rides 
I0F(5)^r THE 0/R 


I0UT(K)= 

mm 


BIT ASSIGNMENT: 


I0F(1),I0F(3) 


I0F(2) 


VEL 

PITCH 

ROLL 

DRIFT 

ALT 

X 

X 

X 







Message Output to Console, Fortran Callable 
MSGOUT(ICNT, IBUFF) 




Register; 

C(BC)®adds of char. count 
C(DE)»adds of output strings 


C(HL) C(DE), sets pointer 
C(A) C(C(BC)), gets count 
C(B) c(A),set counter ( 07FH) 


Get a character from the buffer. 


Send character in Reg C to console. 


Step adds pointer 
Decrement count 


Last of String? 





'!E! KEYBRD(NBR, IBUFF) 


Registers upon entry: 

C(BC)“adcis of buffer 1engtli(value of NBR) 
C(DE)«adds of destination buffer (value 
of IBIJFF) 

:(HL)-< C(DE) ,set buffer pointer 
: A) +C(C(BC)),get count value 
2(D) -<C(A),save initial count value 
2(B) <c(A),set current value 
















*1 


Get Character from Input Terminal 


(0220H) 



c 

I 


r 

Clear off 
parity bit & 
put char, in 
Reg C 

' 


RETURN y 


Registers; 

COiL)» Input buffer adds pointer 
C(b) a current char, count 


Call char, input routine 
C(A)-(-'char' 


CONSOLE INPUT 


ANI 07FH 
C(ChC(A) 

Registers: 

C(HL)=Input buffer adds 
C(B) ^Current char, count 


IN OCDH 


ANI OZH 
JZ Cl 


IN CC 



(01D5H) 


Get 


Console 


Status 

J 



Input 
Character 
C(A) char. 


RET 


RETURN 
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BACKSPACE OR RUBOUT 




Registers: 

C(HL) » pointer to input buffer 
C(IBNT) » initial character count 

C(B) « current initial character count 
C(C; ® input char, value ('BS') 


Increment character counter by on. 

Set pointer to prior input buffer character. 


Get prior char, from buffer, 


Send previous character to CRT. 
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ASCII to BCD Converter, ASCBCD(NBR, IBUFF) 
NAHE « 'ABCONV 


ASCBCD 

“omr 


Set pointer 
counter 


Registers upon entry; 

C(BC) * adds of counts value 
C(nil) s adds of buffer containing 
string 

C(HL)<C(DE), set pointer 
C(A) ■*C(C(BC)), get count value 
C(B) •'C(A), set counter 


Get char, 
from buffer 
C(A)<c(c(hl): 


^C(A); 30H 


X(A); 39H 


C(A) OOH 


If character is 
< 'O' or if char- 
acter is > '9' 
replace it with 
BCD 'O'. 


Strip out 
Lower Nibble 
AN I IFH 


C(C(HL))^C(A) 


C(HL)-C(HL)+1 . 

C(B)-<C(B)-1 |— 


Replace ASCII char 
acter in the 
string with BCD 
value'. 








ASCII Dedwal Verification Routine, ASCDV(NBR, IBUFF) 




Set pointer 
& count 
Reset flag, 
C(C) 





Get a 
character 
from buffer 


Reflisters upon entry; 

C(BC)*adds of buffer lenoth 
(counts) 

C(DE)«adds of buffer contain- 
ing characters 

C(HL)<-C(DE) 

C A) ^*C(C(DE)) 

C C ^0 
C(B) ^'C(A) 


C(A)^C(C(HL)) 
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FORTRA'! Run-Time Error Recovery 



Registers; 

C(BC) * Error Nbr, <255 
C(DE) « Adds of statement nearest wMre 
error occurred. 


Save value of Error Nbr @ ERMUM 
and adds 0 ERNUM+1 


Set string pointer 
Set string(character)counter ( A 


Send string to CRT 


Set byte pointer 
Set byte counter 


Send to CRT 


Set pointer 
Set counter 
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FORTRAN Run-Time Emr Recovery (cont.) 
GETC, sends character strino to terminal. 
CO routine resides in Monitor. 



Registers; 

C(IIL) * pointer to character buffer 
C(D) » number of bytes to send 


Put character in Reg C 


Send character to console 


Step pointer & counter 


Last character? 


Yes 


$ 




I 
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FORTRAN Run-R1me Error Recovery (cont.) 
GETD, converts byte to ASCII character pair 
NHOUT routine resides In Monitor 



Registers! 

C(llL)»po1nter to byte buffer 
C(3) »number of bytes to process 


Get byte fro!ti buffer 


Convert A send bvte to 
console as ASCII pair 


Step pointer 
a counter 


Last byte 


yes 
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APPENDIX B 

INTCOM Listing (Main Driver) 


FORTRAN V4U 


0001 

0002 

0003 

0004 
000 "5 
OOOA 

AAA 7 

C: ; : 

C 

C 

C 

C 

c 

A 

C/L‘ 

TEX, 

UU'/ / 
0008 

C 


0007 

c 

ANGL. 

0010 

c 

ANGT 

0011 

c 

AROL 

0012 

c 

BMW 

0013 

c 

BMWID 

0014 

c 

BNDW 

0015 

c 

CANTl 

0018 

c 

CANT2 

0017 

c 

CANT3 

0018 

0 

CANT4 

0019 

c 

CO 

0020 

c 

CCLC 

0021 

c 

CELL 

0022 

A 

V 

CFAERR 

0023 

c 

CFATAL 

0024 

c 

CILC 

OOP 5 

c 

CIOBUF 

002,", 

c 

CIOVRG 

0027 

c 

CIPOLZ 

0028 

c 

CIYN 

0029 

c 

CL 

0030 

c 

CNERD 

0031 

c 

CRESP 

0032 

c 

CST 

0033 

c 

DELF 

003‘'5 

c 

DELT 

0035 

c 

DFALT 

0036 

c 

DIFF 

0037 

c 

DLIM 

0038 

c 

DTHEI 

0039 

c 

OTHER 

0040 

c 

DTHETA 

0041 

c 

FCAL 

0042 

c 

FDOP 

0043 

c 

FNOIZ 

n04‘l 

c 

FPI3L 

00^ 5 

c 

GSQ 


c 

lAUTP 

004 / 

c 

lAUTR 

0048 

c 

I BCD 

0049 

c 

IBFLW 

0050 

c 

IBL 

0051 

c 

IBND 


PARAHETER DEFINITIONS. C 

C 

SND SCATTEROMETER PROCESSOR C 


VIEWING ANGLE, ALWAYS AFT, ANTENNA TO GROUND CELL. 
VIEWING ANGLE, IN DEGREES, USED IN OUTPUT FRAME. 
ABSOLUTE VALUE OF AIRCRAFT ROLL, RADIANS. 

BEAM WIDTH OF ANTENNA, BAND DEPENDENT, RADIANS. 
beam width constant, BAND DEPENDENT, DEGREES. 

BAND WIDTH VARIABLE USED FOR EACH FILTER. 

ANTENNA GAIN CONSTANT, USED FOR C-BAND. 


TWO DIMENSIONAL CONSTANT BUFFER USED FOR ROLL-OFF. 


CHARACTER BUFFER FOR 
CELL SIZE, METERS, 8 
ERROR MESSAGE BUFFER. 


'L' AND 
VALUES. 


X 


CHARACTER DUFFER FOR 'L'> X'. 

I/O BUFFER, EQUIVALENCED TO CRESP. 

CHARACTER BUFFER USED FOR OVER-RIDE INPUTS. 

" " " " POLARIZATION ". 

" " " " OPERATOR RESPONSES. 

L-BAND ROLL-OFF POLYNOMIAL CONSTANTS. 

CHARACTER BUFFER, EQUIVALENCED TO CRESP. 

" " , GENERAL I/O USAGE. 

GENERAL CONSTANT DATA BUFFER. 

FILTER IPECTRAL LINE-WIDTH, BAND DEPENDENT, 

DATA ACQUISITION AND RUN TIME, OPERATOR SETS. 
AIRCRAFT NERDAS DEFAULT VALUES. 

DIFFERENCE BETWEEN VIEWING AND RESOLUTION ANGLE. ' 
LOWER AND UPPER LIMITS FOR INPUT NERDAS DATA, 

INPUT VALUE OF RESOLUTION ANGLE, OPERATOR SETS, 
RADIAN VALUE OF " " USED IN EXECUTION, 

DEFAULT VALUE OF RESOLUTION ANGLE, BAND DEPENDENT. 
CALIBRATION TONE FREQUENCIES, BAND DEPENDENT. 

DOPPLER CENTER FREQUENCY FOR FILTER. 

NOISE FILTER FREQUENCY, BAND DEPENDENT, 

CONSTANT, BAND DEPENDENT, < 4*P I ) ■)+^^3/LAMDA##2. 

GAIN VALUE IN DB, ANTENNA ANGLE RELATED. 

FLAG SIGNIFYING AUTO-STOP IF SET TO VALUE OF 2. 

" " '• -START WHEN SET TO 2, 

BUFFER USED WHEN CONVERTING TO BINARY-CODED DECIMAL, 
MESSAGE DUFFER OF OVER-FLOW OF OUTPUT DUFFER. 
ALLOWABI.E BUFFER LENGTH, SET TO 70. 

BAND IDENTIFIER, L-BAND=1, C-BAND=2. 
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005.2 

C 

IBOVF 

005S 

C 

IBPT 

0054 

C 

ICALW 

0055 

c 

ICLC 

0054, 

c 

ICNT 

0057 

C 

lEFLG 

0058 

C 

lEOC 

0059 

C 

lERR 

0060 

c 

IFAERR 

006.1, 

c 

I FATAL,. 

0062 

c 

IFCAL 

0060 

c 

IFDL 

0064 

c 

IGTBC 

0065 

c 

IGTBL 

0066 

c 

ILC 

0067 

c 

IMSK 

0068 

c 

INERD 

0069 

c 

INZ 

0070 

c 

INZERR 

0071 

c 

lOBUF 

0072 

c 

lOFLG 

0073 

c 

I OUT 

0074 

c 

I OVER 

007.5 

c 

lOVRQ 

0076 

c 

IPLZ 

0077 

c 

IPOLZ 

0078 

c 

IPSD 

0079 

c 

IRESP 

0080 

c 

IWAIT 

0081 

c 

lYN 

0082 

c 

I, J, K 

0083 

c 

KESC 

0084 

c 

KXP 

0085 

c 

LANTll 

0086 

c 

LANT12 

0087 

c 

LANT13 

'7088 

c 

LANT14 

0089 

c 

LANT21 

0090 

c 

LANT22 

0091 

c 

LANT23 

0092 

c 

LANT24 

0093 

c 

LT 

0094 

c 

MX 

0095 

c 

NC 

0096 

c 

NFEL 

0097 

c 

NPASS 

0098 

c 

NPZN 

0099 

c 

NZE 

0100 

c 

NZL 

0101. 

c 

NZPAS 

0 1 02 

c 

PARM 


FLA© USED TO SIGNAL BUFFER OVERFLOW, 

POINTER FOR POSITIONING DATA IN OUTPUT BUFFER. 
MESSAGE BUFFER FOR CALIBRATION WARNING. 

CHARACTER BUFFER FOR 'L'. 'CL 
GENERAL PURPOSE INTEGER VARIABLE. 

POINTER USED TO GET ERROR MESSAGES FOR I/O. 

FLAG USED TO SIGNAL END OF INTEGRATION, CZT BOARD. 
FLAG USED TO SIGNAL I/O ERRORS. 

ERROR MESSAGE BUFFER. 

I) H M 

POINTER TO CALIBRATION TONE FILTER. 

LEFT FILTER POINTER FOR EACH ANGLE. 

GAIN TABLE FDR C-BAND ANTENNA, INTEGERS. 

" " " L-BAND " " 

CHARACTER BUFFER FOR 'LL 'C'. 

MA.SK BUFFER FOR SETTING INTERRUPTS 
CHARACTER BUFFER FOR NERDAS I/O. 

INITIALIZATION FLAG. 

MESSAGE BUFFER FOR NERDAS WARNING. 

GENERAL. PURPOSE I/O BUFFER. 

BUFFER OF FLAG WORDS USED IN OUTPUT DATA SET. 

OUTPUT DATA BUFFER. 

FLAGS USED TO SIGNAL OVER-RIDE CONDITIONS, 

MESSAGE BUFFERS USED IN ACQUIRING OVER-RIDE VALUES, 
CHARACTER BUFf'ER USED TO IDENTIFY POLARIZATION. 
POLARIZATION IDENTIFIERS, 

POWER SPECTRAL DATA BUFFER, 51S INTE0ER#4. 

GENERAL PURPOSE I/O BUFFER. 

FLAG TO SIGNAL COMPLETION OF SIGMA,! TASKS. 

CHARACTER BUFFER. 

DO LOOP INDEXES, 

CHARACTER, 'ESCAPE'. 

BINARY POWER BUFFER. 

L-BAND ANTENNA GAIN BUFFER, 

li l\ M li 


LOAD POINTER FOR OUTPUT BUFFER. 

OUTPUT POINTER FOR DATA BEING SENT OUT. 
INTEGER CONSTANT TABLE. 

NUMBER OF FILTER ELEMENTS TO SUM. 

FLAG TO SIGNAL PASS NUMBER, 

POLARIZATION IDENTIFIER NUMBER. 

NOISE FILTER ELEMENT COUNTER, 

LEFT MOST NOISE FILTER ELEMENT. 

PASS COUNTER USED FOR CHECKING NERDAS DATA, 
BUFFER OF NERDAS AIRCRAFT DATA PARAMETERS. 


OH.Y.sLNAL 
Of LT’A „ TV 
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t 




0103 

C 

PC 

0104 

c 

PN 

0105 

c 

PR 

010ft, 

c 


010? 

c 

PREV 

OIOS 

c 

RCAL 

0109 

c 

R04 

0110 

c 

SIGMA 

0111 

c 

SLMDA 

oiia 

c 

START 

0113 

c 

SUM 

0114 

c 

SYSK 

0115 

c 

TO 

0116 

c 

Ti 

0117 

c 

T2 

0118 

c 

T3 

0119 

c 

TANTL 

0120 

c 

TC 

0121 

c 

TDEL 

0122 

c 

THETA 

0123 

c 

TI 

0124 

c 

TMl 

0125 

G 

XDELF 

0126 

c 

XI 

012.? 

c 

XKl 

0128 

c 

XK12 

0129 

c 

XK2 

0130 

c 

X'L.MDA 

0131 

c 

XSYBK 

0132 

c 

XT 

0 1 33 

c 

YI 

0134 

c 

ZW 

0135 

c 


0 1 36 

C : : 



SUBFARAMETER USED INT EVALUATING SIOMAO. 

II II u n M 

II II II II II 

FOCALIB POWER, PN*NOISE POWER, PR^RECEIVE POWER 
BUFFER TO SAVE PREVIOUS VALUES OF AIRCRAFT DATA 
CALIBRATION FREQUENCY USED, RAND DEPENDENT 
RANGE VALUE IN DB 

SlOMA-0 VALUES FOR EACH VIEWING ANGLE. 

WAVE 

TIME IN SECONDS AT WHICH DATA SET STARTS. 

POWER SPECTRAL SUM OVER FILTER SET FOR ANGLE. 
SYSTEM PROCESSING CONSTANT. 

TIME IN SECONDS AT WHICH DATA SET STARTS. 

CURRENT NERDAS TIME IN SECONDS. 

VARIABLE USED IN AREA CALCULATION. 

II II II II II 

VARIABLE USED IN AREA CALCULATION, 
MICRO^PROCESSOR CYCLE TIME IN SECONDS. 

ELAPSED TIME COUNTER. 

DESIRED VIEWING ANGLES, RADIANS 
INTEGRATION TIME, SECONDS. 

AREA CALCULATION VARIABLE. 

FIITER LINE WIDTH, BAND DEPENDENT. 

X'.;!00RD. of ground CELL POSITION 
AREA CALCULATION VARIABLE. 

II II II 


WAVE-LENGTH, BAND DEPENDENT 

S'l’CTEM CONSTANT VALUES, BAND, /POLARISATION DEF. 
VARIABLE USED IN EVALUATION OF CEU„ LOCATION. 
Y’tODRD OF GROUND CELL POSITION. 

ROLL -OFF VALUE IN DB, 


NO END CARD 

SUBROUTINE 

t,F4END 

PROGRAM ALLOCATION 
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PROGRAM END 

COMPILER MEMORY USED ~ 6960 

THERE ARE 0001 ERRORS IN THIS COMPILATION 
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FORTRAN COMPILER 


PAGE i 


ISIS-n FORTRAN-80 V2.0 COMPILATION OF PROGRAM UNIT INTCOM 
OBJECT MODULE PLACED IN JFl{SIGMAO*OBJ 

COMPILER INVOKED BYJ FORTOO .'FIISIGMAO.SRC DEBUG PAGELENGTW 75 ) PAGEWIDTHC 90 ) XREF 


5 

6 
7 


C 

C 


C 

c 


c 

c 

c 


PROGRAM INTCOM 
FLOATING POINT VARIABLES 


I/O 


DIMENSION CELL( 8 )»FNOIZ< 2 )»TANTL( 8 >r ANGT( 8 )f XLMDA< 2 )rOTHETA( 2 )r 

PREV(5)»SIGMA(3) 

BUFFERS AND FLAGS 


INTEGER!! IOBUF( 60 ) »INERD( 60 > »IOVER( 5 )f IRESP( 30 )r IOUT( I28»70 )» 
6 IFATAU 5 » 25 ) I NC( a ) » I YN( 2 ) f ILC( 2 ) > I BCD( 4 ) , 

K igVRQ< 5»5 >iKXP( 5 ), IUAIT» IFAERR( 10 )»NPASS»KESC^IBL»IAUTR» 

& lAUTP f IBOVFf IMSK > IOFLG( 5 ) r INZERR( 1 0 > 


{{{ lOFLG s IVALB»SALARMfISYSKfIOVRB.ITHE 


¥ ! ! 
! ! ! 


INTEGERI2 LANTIK 40 >»LANT21< 40 )»LANT12( 40 LANT22( 40 ) i 
LANT13U0 )»LANT23( 40 )»LANT14< 40 )»LANT24( 40 ) 

INTEGER42 CANTK31 )rCANT2(31 >»CANT3<31 )»CANT4(31 > 

INTEGERI2 IPL2 » IP0L2( 4 > » IPSD( 2 » 51 2 ) » IGTBL( SO » 4 ) r IGTBCC 31 » 4 ) 
INTEGERI2 ICLC< 2)rNP2N»IBNDfICNTfNFEL( 8 )f IFDL( 8 )f IKPK S ),IN2 


9 

10 

11 

12 

13 


14 


15 


16 

17 

18 

19 

20 




23 

24 

25 


CHARACTER!5 CIOVROK 5)»CFATAL< 10) 
CHARACrER!:2.CIYNrClLC»CIP0LZ( 4 )rCCLC( 2 ) 


C 

C 

C 

C 


C 

C 

C 


I ut\«rA; WAinFWAw 

CHARACTER* 10 CFAERR(4) 
111 FATAL fNERDAS»BUFFE^ 


CHARACTER*30 

CHARACTER*60 


BUFFER^ CALIBRATION 
CRESP 

CIOBUFrCNERD 


* ! 4 ! 

• ♦ ♦ ♦ 


EQUIVALENCE ( CIOBUF»IOBUF )»( CNERDr INERD )t< INERD^IRESP )> 

6 < CRESP » IRESP ) f< CIYN » lYN )>< CILC» ILC )» ( IPL2 r IRESP )>{ CIPOLZ» IP0L2 )» 
6 ( CIOVRQ » lOVRO ) f ( CFAERR( 1 ) » IFAERR )» ( CFATAL » IFATAL )» ( CCLCr I CLC > i 
6 ( CFAF-P,R( 3 ) f IBFLW ) . ( CFAERR( 4 ) f ICALW )ti CFAERR( 2 > r IN2ERR ) 

EQUIVALENCE ( IGTBC( 1 r 1 ) » CANTl < 1 ) ) r < IGTBC( 1 » 2 ) » CANT2( 1 ) > f 
6 ( IGTBC( 1 »3 )»CANT3( 1 ) )f < IGTBC( 1 »4 )>CANT4( 1 ) > 


EQUIVALENCE ( IGTBL( 1,1 >, LANTIK 1 > >,( IGTBL( 41,1 ),LANT2K 1 > ), 
i ( IGTBL( 1 ,2 ),LANT12( 1 ) ),< IGTBL< 41,2>,LANT22( 1 )>,( IGTBL( 1,3 ),LANT13( 1 ) >, 
6 ( IGTBL(41 ,3 >,LANT23< 1 )),< IGTBL< 1»4 >,LANT14( 1 ) >,( IGTBLC 41,4 >,LANT24( 1 ) ) 


» * I 
• ♦ » 


FARM s ALT,DRF,ROLrPCH»VEL 


4 ! » 
! ! 4 


COMMON XLMDA,DTHETA,XDELF,XSYSK,FCAL,BMWID,FN0I2, 
FPI3L,DLIM,DFALT, THETA, CIOVRQ, CIYN, CILC,CIP0L2,KXP, IMSK, 
NC , I GTBC , I GTBL , CFATAL , CFAERR , CCLC 


C 

C 

C 

C 

C 


C 

C 


COMMON/GG/CL( 6 ) , CC( 7 , 2 ) , CST( 9 ) 
COHMON/A/IEOC,KESC 


» f > 

* i * 


SAVE/A/ 


BANDWIDTH RELATED CONSTANTS 
DATA BM«ID/7.943,2,50/,FN 


I ! * 
» » * 


N0I2/2100 . , 3580 , / , FpI3L/47 , 522 , 56 . 974/ 


?{{ CONSTANT RESOLUTION ANgLE =3.1 DEG FOR L“BND, 2,5 DEG FOR C-BND 


THIS GIVES 50 METER AND 40 METER 


CELLS 


81?. 


XLMDA/0, 18737,0. 0631 l/,DTHETA/3. 105 
XSm/-113.4,“128.4,~117.4,~127,9, 
-119,0,-129,0,-118.0,-128.5/ 


WITH INTEGRATION 
, 2 , 50/ , XDELF/3 . 94531 , 20 . 63/ 


til CALIB, 


* I 4 » 
4 4 4 4 


LIMITS, AND DEFAULT VALUES 
DATA FCAL/1900., 2930., 3380./, 

DLIM/304 . 8,-0 . 1745,-0.1745,-0 . 1745,51.4, 
609.6, 0.1745, 0.1745, 0.1745,102.8/ 


DATA DFALT/457.2,0.0,0.0,0.0,77.1/ 
DATA CIOVRQ/' ALT ' , ' DRIFT' , ' ROLL ' 


PITCH' ,'VEL '/ 
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26 

27 


it VIEWING 


28 

29 

30 

31 

32 

33 

34 

35 


36 

37 

38 

39 

40 


DATA 


ANGLES (5»10»15»20r25»30»40.5q> IN RADIANS 
THETA/0*0373»0»1745f0»2618»0.3491» 
0l4363,0!5236f0,6981»0*8727/ 


C 

C . 

C { 
CC 
C 
C 


CIYN/'YN'/ 


DATA 

KXP/ 1 » 2 i’4 » 8 »i 6/f iMSK/fOFEH/ » 
NC/5»10»ll»13»14»20f30f40/ 


,CILC/aCVrCIPOLZ/'VV^'VH' »'HH 


^'HVV» 


C 

C 


C 

C 

C 

C 


C 

c 


GAIN TABLE FOR 1.6GHZ^{ 
VALUES ARE ORDERED SETS» 80 BY 


it ANTENNA 


if EQUIVALENCED TO IGTBL 
4 MATRIXf -70 DEG TO FIO DEG EACH 


* « • 
♦ * 


229 1 227 1 226 '» 227 l 229 1 227 1 224 ! 223 1 222 1 221 / 
DATA LANT 21 / 219 f 217 » 214 » 214 » 214 » 213 f 210 , 2 ^^ 

207»211»214f214>214»216f217f219>221f221)f 
222 r 222 » 222 f 222 » 22 1 » 22 1 » 21? > 2 1 7 » 21 4 f 213 » 
212»211»209»208»207»204»201fl99»197>194/ 

1 AUH * * * 

DATA L ANT 1 2/214 f 218 , 222 r 224 r 227 f 22? » 232 f 236 » 23? » 240. 
& 241f243»246f247.249»250r251»255»25?f260r 

& 26 1 » 26 1 » 262 f 262 » 26 2 f 263 » 264 . 263 » 262 . 262 » 

i 262 » 264 f 256 f 256 . 256 f 251 » 246 » 244 f 242 f 249/ 

DATA L ANT22/236 » 233 > 229 > 226 . 222 , 21 ? » 216 . 2 1 3 » 20? » 215 » 
201»201»201fl99»197fl95fl?4»l?5»l?7»l?8» 
199»200»201f205f209»209f209f211f214f216i.; 


& 

& 

6 

6 

& 

& 


« f * 
* ♦ 


217»219»222f222f222f 222f 222.221 f219»216/ 


i, 

& 

& 

A'l'i l.AHH 

DATA LANT 13/23 1.234. 237 .239.242. 243 . 244 . 244 . 244.244. 
& 244 . 245 . 246 .246.246. 246 . 246 . 248 . 24? . 248 . 

& 246.245. 244 .244.244. 244 .244.242. 239 . 238 » 

& 237 .234.231. 230 .229.226. 224 . 222 . 21? . 217/ 

DATA LANT23/214. 211. 20?. 206.204. 202. 1??.1?5.1?1. 190. 

189.188.186.185.184.184.184.134.184.186. 
189. 189. 189. 193. 197.197 .197. 197. 1?7» 197. 


& 

& 


197. 197. 197. 193. 189. 188. 187. 134. 181. 179/ 


» « * t 
4 » * » 


AfkA 1 AHU 

DATA LANti4/164.168.172.173.174.175. 
& 184. 135» 187.191.194.195. 
& 201.201.202.203.204.204. 
& 204.205.206.205.204.203. 

DATA LANT24/202 . 201 . 1??. 1??. |9? . 1?? . 
& 194.193.192.193.194.194. 
i; 202.203.204.205.207.207. 
& 202.200.197.193.189.186. 


177.179. 
196.197. 

204.204. 

202 . 202 . 201.201 

199.196. ■“ 

194.197. 
207.206. 

184.180. 


182.183. 

199.200. 

204.204. 


194.194. 

199.200. 

204.203. 

176.175/ 


C 

C 


m 4.75GHZ ANTENNA GAIN It. EQUIVALENCED TO I GTBC it it 
ORDERED SET. 31 BY 4. 0 DEG TO 60 DEG 

# ♦ ♦ i 75UV * * 

’ ’ * DATA CANT 1 /300 . 31 0 . 320 . 330 . 34 0 . 350 . 360 . 365 . 370 . 375 . 

UR.H 380.370.360.370. 38q.380.38q.3?q.^^^^ 

& 400 . 400 . 390 . 380 . 37 0 . 360 . 350 . 330 . 310 . 290 . 27 0/ 

♦ • ♦ i 75IJU ♦ { 

‘ * DAT A CANT 2/300 . 31 8 . 336 . 354 . 37 2 . 390 . 397 . 404 . 4 1 1 . 4 18 . 

UH.H ^25 425.420.420.420.420.420.420.420. ^ 

t, 420.418.411.404.390.380.370.360.350.330.310/ 

‘ ‘ ’ DAT a‘ CANT3/330 . 340 . 350 . 360. 370 . 380 . 390 . 400.410 . 415. 

& 420.423. 427 .431. 433. 43 ij. 437 . 435.43«j.430. 

& 425.420.415.410.400.390.380.370.360.350.340/ 

» I • i 7 |^UH • • 

‘“data CANT4/315.322.330.345.360.38^^ 

4, 410. 410. 410.410.4 10.41 0.410. 41 0.405. 405. 

& 390 .405.395.400.395.385.360.345.330.322.31 5/ 


DATA 


CFATAL/' W0020' . ' W0430' . ' EF600' . ' EF7 10 


'.'W0790' 
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Ai ' U0815' » ' N0850' » ' W08A4 ' t ' W0868 ' , ' UNDEF' / 

DATA CFAERR/TATAL ERR*S'**NERD ERR'»'*IBUFF OVR^'***CAL LOWV 

DATA CCLC/' I',' CV»CST/I.25»2,0»57,3.10*0f40.0»0.5r573*f0,3048r0,5u/ 

DATA CL/7*71094»-21.A?14»14.941fi.lll82»“0*018A787flOOO./ 

DATA CC/5»4637f9*61506f-15*2809f6*90396»-1.05396»3*20S5»-0.305786» 

& 18*5575r-16*5981f8»64097r-3»44443»0*6532i3»-0.25549f0»001/ 

m INITIALIZE I/O BOARD FOR CRT/KEY 
CALL lUSRT 

ttt INITIALIZE BI-PHASE-L I/O BOARDr CZT DOARDf AND INTERRUPT CONTROLLER 

CALL INIPIO 
CALL INICZT(IPSD) 

CALL INI259 
CALL LDJMPS 

$$$ SEND OUT SIGN-ON MESSAGE 
5 CALL CRLF 
IEFLG=1 

WRITE( CIOBUFf 21 rERR-7000 ) 

21 FORMAT(10X»'NASA L/C-BAND PROCESSORM7X ) 

CALL MSG0UT(NC<8)»I0BUF) 

CALL CRLF 

*** INITIALIZE FLAG SET 
INZ=1 


**$$**$ 
IBL=70 
m intiK 


SET OUTPUT BUFFER LINE LIMIT 

*n m *** RE-CYCLE LOOP ENTRY *** *** 


CONTINUE 
CALL I BELL 
CALL CRLF 
NPASS=1 
KESCsl 

SET STARTING POINTERS INTO OUTPUT BUFFER 


MX=IBL-10 
LT=MOD(HXfIBL HI 


PRE-LOAD OUTPUT BUFFER W/099H Um 

ICnT~25 

CALL IBFILL(ICNT»IOUT(l»li)> 

$$$ $i$ $$$ u* %u m m SET up options m m 

CALL CRLF 

GO TO (115»85)»INZ 
85 CONTINUE 

CRESP=' NEW SET-UP<Y/N>’' 

CALL I BELL 

CALL MSGOUT<NCa>fIRFSr > 

CALL KEYBRD(NC( l>'!r*SP) 

IF(IRESP( 1 >,EQ**1BH) GO TO 5 
IFdRESPd ),EQ.IYN<2)>G0 TO 740 

mttmntntmimmmmmmsEi band iDENTiFiER«i^!Km»4 

115 CONTINUE 
IBND»1 

CRESP=' TYPE OF SCAT(L/C>?' 

CALL MSG0UT(NC(7)»IRESP) 

CALL KEYBRD(NC(l)fIRESP) 

IF( IRESP< 1).EQ.ILC(2))IBND=2 

band related UARIABLES»4!^>K4I 

BMW=BMWID< IBND )/CST<3) 

SLMDA=XLMDA(IBND> 
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84 

85 

86 


87 

88 

89 

90 

91 

92 

93 

94 


95 

96 

97 

98 


99 

100 

101 

102 

103 

104 


105 

106 

107 

108 

109 

110 


m 

113 

lii 

116 


117 

118 

119 

120 
121 


123 

124 

125 

126 

127 

128 

129 

130 


131 

132 

133 

134 

135 

136 

137 

138 


DELFs^XDEL 

NZLsIFIX( 


C 

C 


C 

C 


'i IBNB ) 

;N0I2< IBND )/0ELF )-6/IBNDF1 


NZE*( 6/IBND)*2 

mmmmtummmmm set polarization identifier mm 

160 NPZN«0 

CRKpf' , ^ POLARITY^ »HV >?' 

CALL MSG0UT(NC<7)fIRESP) 

CALL KEYBRD(NC(l)fIRESP) 
no 180 Lal»4 

. . IP0LZ( L ) )NPZN**L 

180 CONTINUE 

IF<NPZN.EQ,0)GO TO 160 


SET POLARIZATION VARIABLES ****** 


C 

C 


m$m*$mmmmmmmu 

RCAL~FCAL( IBND ) 

GO TO (200»195)fIBND 

195 GO TO (196,196»200»200)fNPZN 

196 RCAL=FCAL(3) 

******************************** ANGULAR RESOLUTION OPTION ****** 

200 IFCALs512"IFIX(RCAL/DELF)’-6/IBNDFl 
203 CRESPs' ANG RESOL 0/RIDE(Y/N)?' 

CALL MSG0UT(NC(7)fIRESP) 

CALL KEYBRD(NC( 1)»IRESP) 

I0FLG<5)=1 

IF(IRESP(1>.EQ,IYN(2)) GO TO 255 

******************************** read over-ride resolution ****** 

IOFLG( 5 

CALL GETVLU( CRESP. IRESPf NC^ 2 ) »NC( 6 )f lERRfDTHEI > 

IF(IERR.NE.O) GO TO 203 
GO TO 260 

255 DTHEI=DTHETA(IBND) 

t { J SET VALUE OF DTHETA/2 

260 DTHER=(DTHEI/CST(3))/CST(2) 


TO RADIANS 1 { t 


***************************** SYSTEM CONSTANT OPTION ********** 


C 

c 


c 

c 


*************** 


305 CRckpi^ SYS CONST 0/RIDE(Y/N)?' 

CALL MSG0UT<NC(7)»IRESP) 

CALL KEYBRD(NC(l)fIRESP) 

IF(IRESP<1).EQ,IYN(2>) GO TO 380 
I0FLG<3)=1 

**************************** RESET SYS CONSTANT 
CALL GETVLU( CRESP» IRESPr NC( 2 ) » NC< 6 )f lERRr SYSK ) 

IF(IERR.NE,0) GO TO 305 
IF(SYSK.GT*0^ > SYSK=-SYSK 
GO TO 385 

380 SYSK=XSYSK(NPZN»IBND) 

*************************** NERDAS VALUE OVER-RIDE OPTION ****** 
385 CONTINUE 

CRESP=' ACFT DATA 0/RIDES<Y/N)?' 

CALL MSG0UT(NC(7)fIRESP) 

CALL KEYBRD(NCa)flRESP) 

I0FLG(4)~O 
DO 415 J=l»5 
IOVER( J)t=0 
415 CONTINUE 

IFaRESP<l).EQ,IYN<2>) GO TO 500 


************************* AIRCRAFT DATA OVER-RIDE ENTRIES ****** 
DO 475 J=lr5 
IEFLGs2 

WRITE! CRESPf 430,ERR-7000 ) CIOVRQ! J ) 

430 FORMAT! 5X>' 0/RIDING MA5»' !Y/N)?'f4X) 

CALL MSG0UT!NC!7)rIRESP) 

CALL KEYBRINNC! DfIRESP) 

IF!IRESP!1).EQ*IYN!2)> GO TO 473 
460 CALL GETVLU(CRESP>IRESPfNC!2)fNC!6)rIERRfAC0VR! J)) 
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IF(IERR.NE*0) GO TO 4A0 
IOVERU)#i 

$mm*mummn .initialize park values mmmuuu 

DO 490 JslrS 

IF(IOVER( J).EQ*0)G0 TO 490 
GO TO (481»482»482»482f483)rJ 

481 PARH( J >=ACOVR< J )#CST( 8 ) 

60 TO 490 

482 PARM< J )=ACOVR< J )/CST< 3 ) 

GO TO 490 

483 PARH( J sACOVR( <3 )K!CST( 9 ) 

490 CONTINUE 

$m*m$mumum start/stop tine options muumm 

500 GO TO (545»520)r INZ 
520 CONTINUE 

CRESps' CHG START TIKE<Y/N)?' 

CALL MSG0UT(NC(7)»IRESP) 

CALL KEYBRD(NC(1)»IRESP) 

IF(IRESP< 1)*EQ»IYN(2>) GO TO 625 
GO TO 570 

mmmmummmm start tike option mmmumuu 

545 CONTINUE 

CRESps' START TIKE CKD(Y/N)?' 

CALL KSGOUT(NC(7)»IRESP) 

CALL KEYBRD( NC( 1 >» IRESP ) 

IF(IRESP(i)»E8»IYN(2>> GO TO 620 


m*mum'mmnmmn set start tike ; 

570 CONTINUE 

CRESP=' SET START TIKE( HHKKSS )' 

CALL KSG0UT<NC(7)»IRESP) 

CALL KEYBRD(NC(2)»IRESP) 

CALL ASCnV(NC(2)»IRESP> 

IEFLG=3 

REAIK CRESP»600rERR=570fEND=7000K START( J )» J=l»3 ) 
600 F0RKAT(3F2»0) 

IAUTR=2 

TO=START( 1 >*3600,fSTART( 2 >*60 *+START< 3 ) 

GO TO 625 
620 lAUTRsl 


************** 


***************************** STOP 
625 GO TO <655»630)»INZ 
630 CONTINUE 

CRESP=' CHG STOP TIKE( Y/N )?' 
CALL KSG0UT(NC(7)fIRESP) 

CALL KEYBRIKNC< Dr IRESP) 
IF<IRESP< 1)»£Q.IYN<2>) GO TO 740 
GO TO 680 


STOP TIKE CHANGE OPTIONS ****** 


**************************** STOP ' 
655 CONTINUE 

CRESP=' STOP TIKE CKD( Y/N )?' 
CALL KSG0UT(NC<7)rIRESP) 

CALL KEYBRD(NC(1)» IRESP) 
IF(IRESP(l>.EQrIYN(2)> GO TO 730 


STOP TIKE OPTION ■ ******************* 


**************************** SET NUKBEf 
680 CONTINUE 

CRESps' SET RUN TIKEfSECS< F5.0 )' 
CALL KSG0UT(NC(7)»IRESP) 

CALL KEYBRIKNC<2)»IRESP) 

CALL ASCDV(NC( Dr IRESP) 

IEFLG=4 

READ< CRESP r710 rERR=680rEND=7000 )DELT 
710 FORKAHFS.O) 

IAUTP=2 


SET NUKBER OF SECONDS TO RUN ****** 


OP POOK 
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GO TO 740 
730 IrtUTpsl 

DISPLAY SET-UP(Y/N)?^ 

CALL MSC0UT(NC<7)»IRESP) 

CALL KEYBRIi(NC(i)»IRESP> 

^ IF(IRESP<1)*EQ*IYN(2)) GO TO 870 

CALL CRLF 
lEFLGsS 

„ WRITE( CRESPr790rERR=7000 )CCLC< IBND »CIP0L2< NPZN )»SLMDA 

790 F0RHAT<4XflA2»'-BAND(MA2»' )r W/LN-SF6.4»1X ) 

CALL MSG0UT(NC(7)»IRESP> 

CALL CRLF 
lEFLGsA 

WRITE(CRESP»815»ERR=7000 )DTHEIt»SYSK 
815 FORHAT<5X»'RESOLs'»FA.3»lX»'SYSK-' »F6»1»1X) 

CALL MSG0IJT(NC<7)»IRESP> 

IEFLG*7 
DO 860 J=lf5 

IF<IOVER( J)*EQ.O) GO TO 860 
CALL CRLF 

WRITE( CRESPr850»ERR=7000 )CIOVRQU >»ACOVR< J ) 

850 F0RMAT(5XflA5f'=^F9»3rl0X) 

CALL MSG0UT(NC(7)fIRESP) 

^ 860 CONTINUE 

GO TO (865»362)»IAUTR 
862 IEFLG=8 

WRITE( CRESP>864 rERR-7000 X START( I ) » 1=1 ? 3 ) 

864 F0RHAT(5Xf' START TIHE=' »3<F3»0)»fM> 

CALL CRLF 

CALL MSG0UT<NC(7)fIRESP> 

^ 865 GO TO <870»866)fIAUTP 
866 IEFLG=9 

MRITE< CRESP»868fERR=7000 )DELT 
868 F0RMAT<5X»'RUN TIHE=SF7,lf9X ) 

CALL CRLF 

CALL «SG0UT(NC<7)fIRESP) 

c umnumumu re-start option mmmmuu 
c 

870 CALL CRLF 

CRESP=' READY TO RUN(Y/N)?' 

CALL MSG0UT<NC(7);IRESP) 

CALL KEYBRD<NC(l)fIRESP) 

IF(IRESP(1>.EQ.IYN(2)) GO TO 40 

c mumnmtnm initialization completed mmmumm 
c 

C BEGIN RUN MODULE 


INZ=2 


SIGMAl 


♦INCLUDE( tFltSIGMAl.SRC) 

C SIGMAl MODULE 
C 

^ ^ ^ ^ ^ ^ ^ ^ ^ T ^ ^A ^ ^ ^ ^A ^ ^ ^ ^A^A ^ ^ ^ ^ ^A ^ ^ ^A^A ^ ^ ^ ^ ^A ^A ^ ^ ^ ^ ^ ^ ^ ^ ^A ^A ^A ^ ^ ^ 


TC=1»0 

NZPAS=0 

set nerd as nib count 

J=110 

mm*mmmnnmmmnmm~-EHW point from sigma 2 ^ 
m$mmmmmmmmcmcK keyboard for pending character 

915 CALL KEYCHK 

LOOP BACK FOR TIME SEARCH 4*4414 
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263 = 

264 = 


925 CONTINUE 

E m $* mmm $ mmmm$ummmmm in a neroas frahei**!!^ 

^ CAIL NERD< J»IOUT(l»LT)) 

C 

GO TO (930»940)rIAUTR 
930 GO TO (935»945)rNPASS 
935 TOsTl 

940 IF(T1.LT*T0> GO TO 925 
945 CALL AHDSUB(TDEUT1»T0) 

IF(NZPAS.GEaO) GO TO 950 

CALL VALIEK DLIHrDFALT»IOVER,IOFLG( 1 )»PARH ) 

NZPASsNZPAS+I 
GO TO 955 

950 CALL RUNLHKPREVflOMERfPARN) 

955 DO 960 Ksl,5 

PREV( K )=PARH( K ) 

960 CONTINUE 

C {{{ i:{{ CHECK VALIDITY OF NERDAS DATA I It I 

IF(I0FLGa>.EQ*0) GO TO 965 
IF(NZPA3.GE.10) 60 TO 965 

c muummmm send out nerdas uarning kessage $m 
c 

CALL CRLF 
CALL I BELL 

CALL NSG0UT(NC(2)fINZERR) 

C *4***)K****)K*)li***l4*4!K* SKIP TINE CHECK WHEN NERDAS IN ERROR ***** 
GO TO 977 

965 GO TO (977r975)» lAUTP 

975 IF(DELT.LE.TDEL) GO TO 7777 

977 GO TC (1000f7777)fKESC 

1000 DO 1005 I“l>3 

C ********** EVAL CELL SIZES < DTHER=DTHETA/2* IN RAD) 

CALL AhDADDl SUM»THETA< I )rDTHER ) 

CALL AHDSUB(DIFF»THETA( I >fDTHER) 

CALL CCELL( CELL( I >»DIFF»SUM»PARN( 1 ) ) 

1005 CONTINUE 

C 

C ************************** COKPUTE INTEGRATION TINE ******** 
CALL AHDXLH TI >CELL( 1 )fPARN( 5 ) ) 

c mmmnnunmtnm set interrupt mask for level o ***** 

c 

1030 CALL HSKSET(IHSK) 

c 

c *************************** START INTEGRATION ************ 

CALL INTGT(ICNT>TI»DELF> 

CALL CZT(ICNT) 

IE0C=1 
IB0VF=1 
I«AIT=1 
IOFLG( 2)=0 

C I!.* SET ICNT = NBR OF CELLS IN VIEW 111 

CALL CELCNK ICNT>PARN( 5 )»TC»PARW 1 )rTHETA<8)) 

IF( ICNT, LE»IBL)GO TO 1050 
IB0VF=2 

ICNT-IBL „ 

IOFLC<2)=:IOFLG(2),OR,KXP(3) 

GO TO 1060 

1050 IOFLQ( 2 >=IOFLG< 2 >. AND.NC( 3 ) 

1060 GO TO (1100fl065)fIBOVF 
1065 CALL CRLF 

CALL MSG0UT<NC(2)»IDFLU) 

1100 CONTINUE 

C ******* SET VARIABLES PC vK PN FOR POINTER EVALUATIONS {{{{{ 
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PACE 8 


IS 

as 

as 

as 

as 

as 

as 


296 


’97 


29B 

300 

30 1 

302 

303 

304 

305 


306 s 

307 s 


303 

309 

310 

311 

T1 0 

<4 

313 

314 

315 

316 


317 

318 

319 

320 


321 

322 

323 


324 

325 

326 

327 

328 

329 


330 


C 

C 

C 

C 

C 


CALL PCPN< PNf nrPCfTCfPARH( 1 )?PARH( 5 ) ) 

mumu%m%mu%um cokpute a/c related values 


m$ 


c 

c 

c 


c 

c 

c 


AROL«ABS( PARrt(3)> 

nmmuummunm cohpute angle related values umm 

DO 1305 I*l»8 
ANGL*“THETA( I > 

IF( AROL,GT.THETA< I ) >ANGL*-*AROL 

CALL GYK YI»XT»PARH( 1 )» PARN( 3 )»PARH(2) ) 

CALL ANDIV(XT»CELL(l)fCST(2)) 

IF(XI,LT.XT >XI«XT 

**11^****)!^* COHPUTE DOPPLER ANGLE AND NBR OF FILTER lELEKENTS %U* 

, CALL CNFILT(NFEL(I)»DELF»BNDW»CELL(I)»FD0P>ANGL>YI»XI»XT»8LHDA» 
vS PARH<5)fPARH(D) , 

IF(NFEL(I)*LT,l)NFELa>sl 

**!^*iji**************** EVALUATE TRUE BANDWIDTH ******** 

CALL CBNDW(BNDW»NFELa)fDELF) 

IF(HOD(NFEL(I)r2).EQ.O) GO TO 1200 
Mil ODJJBR OF ELENENTS III 

CALL FDLOW IFDL( I )>NFEL( I )»LrFDOPf DELF) 

GO TO 1210 

: 1 1 1 EVEN NBR OF ELEMENTS III 
1200 Ls3 

CALL FDLEV< IFDL( I >»NFEL< I )»L»FDOP»DELF ) 

1210 CONTINUE 

IFaFBUI >.LE»0)IFDLa)=l 

****** COHPUTE TRUE DOPPLER ANGLE AND LOAD POINTERS 

CALL AHDlV\'ANGLfFDOPrXT) 

IF< ANGL.GTa. )ANGL=1. 

CALL CLNPTI IBPT( I >»LT»PC»PN»XTfYI»ANGL»PARH( 1 )) 

IF( IBPTI I )»LE.O )IBPT< I >-IBLFIBPT( I ) „ 

******************* ESTABLISH OUTPUT LOOK ANGLE 


C 

C 

C 


C 

C 


C 

c 

c 


****** 


************ 


ANGTL=THETA( I ) 

I F< ANGTL . LT . AROL )ANGTL-AROL 
CALL AHDHUL(ANGTI I )» ANGTLrCST( 3) ) 


- C 


************************** 

ANGL=~ANGTL 


ESTABLISH ANTENNA VIEWING ANGLE **** 


SIGHA(I)=OtO 
1305 CONTINUE 

-k 

Isio IFdEOC.NEa) LO TO 1650 
IWAITs2 
GO TO 1310 


C 

c 

c 

c 

c 


******************* 

****************** 


END OF SIGHAl MODULE **************** 


SIGNAL 


^ ^ ^1 ^ ^ ^ ^ ^ 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ® ^ ^ ^ ^A V ^ AA ^A ^A v ^ 


331 


*INCLUDE( IF1ISIGMA2.SRC) 

C 

C*********************** SIGHA2 MODULE ************************ 

C 

C**4*********************************************************** 
C ENTRY CONDITIONAL ON lEOC FLAG SET BY CZT~BOARD INTERRUPT 
C C2TINT ROUTINE WILL HAVE MASKED ALL INTERRUPTS 

^1650 IFdUAIT.EQ.DGO TO 1657 
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SET ALARH WORD BIT FOR TIME 
I0FLR( 2 )«IOFUG( 2 )*OR ,KXP( 2 ) 


I0FLR(2)«It 


cuH*uui*Hnuuuuuuuuuu%uu>^u*uuutumuuu 

1657 IOFLG(2)*IOFLG(2).AND.MC(4) 

C , READ IN C2T-BOARB DATA MIA BHA 
^1660 CALL CZTR 

C EMALUATE NOISE POWER 

. CALL l32SyM(PN»IPSDa»NZL)»NZE) 

C EVALUATE COyBRAnON PpV|R,^„^^ ^ 

CALL I32SUH( PC r IPSBr 1 » IFCAL )» NZE ) 

C CHECK FOR CALIB TONE NOISE 
CALL AHDSIJB(XT»PC»PN) 

IF(XT.G£*CC(1»1))GQ TO 1689 
IOFLG(2)slOFLG<2).OR*KXP<l) 

CALL CRLF 

CAL^^HSc|UT(NC(2)fICALU) 

1689 IOFLG( 2 )»IOFLG< 2 ), AND.NC< 5 ) 

C PERFORM POWER SUMS OVER EACH BAND 
C AND CALCULATE SIGMA VALUES 

1690 DO 1700 I«l»8 

CALL I32SIM PR> IPSD( liIFIK I ) )» NFEL( I > ) 

CALL AMDSUD(XTrPR»PC) 

CALL AMDADD( SIGHA< I )rSIGMA< I )»XT ) 

^1700 CONTINUE 

cummu MOVE angles » sigma > noise h, CAL~PWR»^^ FLAGS TO OUTPUT mmu 

ICNTssl 

{Oglf.fO^f-1^8 

ckL HFPNUMf ANGT< K ) » I » LT » lOUT » IBCD » ICNT ) 

1800 CONTINUE 


1900 CALL MFPNUM<SIGMA»I»IBPT>IOUTfIBCD»ICNT) 
1=87 

fSlir "’ mFPNUH( PC » I r LT r IOUT » I BCD » I CNT ) 

1=89 

CALL HFPNUM( PN » I » LT » lOUT f IBCD r ICNT ) 

1=91 

CALL MFLAG( I » lOFLG » iOUT( i f !J ) » IBND r NPZN ) 

m%%mu SET OUTPUT POINTER mmunum 

ICNT=LT-IBL/2 

^ IF(ICNT.LE,0)ICNT=ICNT+IBL 

C {{{{{{{{1 REPLACE SYNC BYTE IN OUTPUT LINE 
IOUT< 1»ICNT)=*0FBH 
IOUT( 2rICNT)=*0FlH 




C WRITE TO BI-PHASE-L 

C 

CALL KBPHAL(IOUT< bICNT)) 

C 

mmmmn set loop controls mmmmum 

NPASS=2 

C It SET LOAD POINTER FOR NEXT LINE II 
MX=MXF1 

IF<MX.LE*0)MX=LT 
LT=MOD< MXfIBDFl 

C III LOOP BACK TO NEXT FRAME 1 1 1 


GO TO 915 


WRITE ERROR RECOVERY mmummu 


CALI CRLF 

CALL MSG0UT<NC(2)rIFAERR) 

CALL MSGOUTI NCU >» IFATAL( 1 > lEFLG ) ) 
CALL CRLF 
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379 


380 


383 

384 

385 

386 

387 


C 

C 

c 

c 


7777 

777 


CALL DWAIT 

^ ^ ^ |1 ^ ^ 4 ^ ^ ^ ^ ^ ^ ^ ^ ftjL. ^ 1 ^ ^ ^ 

^ ^ *** ** T 

.T-IBL/2 


RUN MODULE TERMINATION 


IF<ICNT.LE»0)K*ICNT+IDL 
CALL KBPHAL(I0UT(1»K)) 

l§ 18 777 *LT)®0 TO 40 

END 
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CROSS-REFERENCE LISTING 

DEFN APDR SIZE NA«E» ATTRIBUTES^ AND REFERENCES 


1248 


COHNON-BLOCK 
16 17 18 

272 0E28H 

1000 

LABEL 
271 272 

276 0E7BH 

1005 

LABEL 
272 276 

273 0E92H 

1030 

LABEL 

278 

291 OFOIH 

1050 

LABEL 
286 291 

292 OFOBH 

1060 

LABEL 
290 292 

293 OFIAH 

1065 

LABEL 
292 293 

295 OF2AH 

1100 

LABEL 
292 295 

76 0352H 

115 

LABEL 
68 76 

313 lOABH 

1200 

LABEL 
309 313 

315 lODOH 

1210 

LABEL 
312 315 

326 IIBAH 

1305 

LABEL 
298 326 

327 11C4H 

1310 

LABEL 
327 329 

87 03ECH 

160 

LABEL 
87 94 

331 ilDBH 

1650 

LABEL 
327 331 

334 IIFAH 

1657 

LABEL 
331 334 

335 1204H 

1660 

LABEL 
333 335 

344 126BH 

1689 

LABEL 
339 344 

345 1275H 

1690 

LABEL 
343 345 

349 12D1H 

1700 

LABEL 
345 349 

93 0440H 

180 

LABEL 
91 93 

354 131BH 

1800 

LABEL 
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351 354 


357 1331H 

1900 

W'- 


97 0474H 

195 

LABEL 
96 97 


98 0484H 

196 

LABEL 
97 98 


99 048DH 

200 

LABEL 
96 97 

99 

100 04B5H 

203 

100 107 


S3 017AH 

01 

4 . 

LABEL 
52 53 


109 0520H 

255 

LABEL 
104 109 


no 052FH 

260 

LABEL 
108 110 


112 054CH 

305 

LABEL 
112 118 


121 05CDH 

380 

LABEL 
115 121 


122 0SE3H 

385 

LABEL 
120 122 


58 02CEH 

40 

LABEL 
58 238 

385 

129 0A23H 

415 

LABEL „ 
*27 129 


134 019DH 

430 

LABEL 
133 134 


138 OABDH 

460 

LABEL 
138 139 


141 0AF9H 

473 

LABEL 
137 141 


142 0715H 

475 

LABEL ^ 
131 142 


146 075AH 

481 

LABEL 
145 146 


148 077CH 

482 

LABEL 
145 148 


150 079EH 

483 

LABEL 
145 150 


151 07BDH 

490 

LABEL 

143 144 

147 

50 027BH 

5 

'ir 7* 


152 07C7H 

500 

LABEL 
130 152 


153 07D3H 

520 

LABEL 



PAGE 12 


147 


FORTRAN COMPILER 




152 153 

159 0803H 

545 


164 083AH 

570 

LABEL , 
158 164 

171 OIBEH 

600 

LABEL 
170 171 

175 090EH 

620 

LABEL 
163 175 

176 0913H 

625 

LABEL 
157 174 

177 091FH 

630 

LABEL 
176 177 

183 0954H 

655 

LAPEL 
1/6 183 

138 0986H 

680 

LABEL 
182 183 

375 144AH 

7000 


195 01C5H 

710 

LABEL 
194 195 

198 0A04H 

730 

LABEL 
187 198 

199 0A09H 

740 

LABEL 
75 181 

331 1488H 

777 

LABEL 
381 386 

380 146EH 

7777 

LABEL 
270 271 

207 OICBH 

790 

LABEL 
206 207 

212 01r4H 

B15 

LABEL 
211 212 

69 0312H 

35 

LABEL 
68 69 

219 0219H 

850 

LABEL 
218 219 

221 0B9AH 

860 

LABEL 
215 216 

223 0BB3H 

362 

LABEL 
222 223 

225 022EH 

864 

LABEL 
224 225 

228 0C25H 

865 

LABEL 

222 228 

229 0C34H 

366 

LABEL 
228 229 

231 024BH 

268 

LABEL 
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170 


176 


194 

170 194 206 211 218 224 230 375 


197 199 


380 
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230 231 


234 

0C82H 

870 

LABEL „ 
203 228 

234 

244 

0CD2H 

915 

LABEL 

244 374 


24S 

OC05H 

925 

LABEL 
245 253 


251 

00238 

930 

LABEL 
250 251 


252 

O032H 

935 

LABEL 
251 252 


253 

00308 

940 

LABEL 
250 253 


254 

00408 

945 

LABEL 
251 254 


259 

00888 

950 

LABEL 
255 259 


260 

00958 

955 

LABEL 
258 260 


262 

00008 

960 

LABEL 

260 262 


269 

O0F38 

965 

LABEL 
263 264 

269 

270 

0E078 

975 

LABEL 
269 270 


271 

0E198 

977 

LABEL , 
268 269 

271 


2C3E8 

18 (3I0PB 

INT£GER*2 

52 

0IMENSIONED 



3 A 

COMMON-BLOCK 
18 19 



APS 

INTRINSIC 

297 



00608 

20 ACOOR 

REAL*4 BIMENSIONE0 _ 

2 138 146 148 150 



A80A0D 

EXTERNAL 
273 343 

SUBROUTINE 



AHDIO 

EXTERNAL 
277 304 

SUBROUTINE 

317 



AHDNUL 

EXTERNAL 

323 

SUBROUTINE 



AHDSUB 

EXTERNAL 
254 274 

SUBROUTINE 
338 347 


2CFE8 

4 ANGL 

REAL44 
299 300 

301 306 317 


00408 

32 ANGT 

REAL44 01MENSIONE0 
2 323 353 


20168 

4 ANGTL 

REAL*4 
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321 322 323 324 


2CFAH 

4 

AROL 

??7^*300 322 



ASCDM 

EXTERNAL SUBROUTINE 
168 1?2 

2CA4H 

4 

BMW 

REAUii4 

82 

0044H 

8 

BMUIB 

REAL44 DIMENSIONED COMMON 
2 16 20 82 

2EI0EH 

4 

BNDO 

REAL44 
306 303 

OOEBH 

62 

CANTl 

INTEGER42 DIMENSIONED COMMON EOUIUALENCED 
5 14 36 

0129H 

62 

CANT2 

INTEGERiKl DIMENSIONED COMMON EQUIVALENCED 
5 14 37 

0167H 

62 

CANT3 

INTEGERK2 DIMENSIONED COMMON EQUIVALENCED 
5 14 38 

01A5H 

CM 

CANT4 

INTEGER»2 DIMENSIONED COMMON EQUIVALENCED 
5 14 39 



CBNDG 

EXTERNAL SUBROUTINE 
308 

OOlSH 

56 

CC 

REAL44 DIMENSIONED COMMON 
17 44 339 



CCELL 

EXTERNAL SUBROUTINE 
275 

04B0H 

4 

CCLC 

CHARACTER42 DIMENSIONED COMMON EQUIVALENCED 
9 13 16 42 206 



CELCNT 

EXTERNAL SUBROUTINE 
285 

OOOOH 

32 

CELL 

REAUii4 DIMENSIONED 
2 275 277 304 306 

0495H 

40 

CFAERR 

CHARACTER410 DIMENSIONED COMMON EQUIVALENCED 
10 13 16 41 

04A3H 

50 

CFATAL 

CHARACTER45 DIMENSIONED COMMON EQUIVALENCED 
8 13 16 40 

00D3H 

2 

CILC 

CHARACTER!K2 COMMON EQUIVALENCED 
9 13 16 27 

00C8H 

60 

CIOBUF 

CHARACTER460 EQUIVALENCED 
12 13 52 

00B8H 

25 

CIOVRQ 

CHARACTER!K5 DIMENSIONED COMMON EQUIVALENCED 
8 13 16 25 133 218 

00D5H 

8 

CIPOLZ 

CHARACTER42 DIMENSIONED COMMON EQUIVALENCED 
9 13 16 27 206 

OOBIH 

2 

CIYN 

CHARACTER42 COMMON EQUIVALENCED 
9 13 16 27 

OOOOH 

24 

CL 

REAL44 DIMENSIONED COMMON 
17 43 



CLNPT 

EXTERNAL SUBROUTINE 
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319 


0104H 

60 

CNERD 

CHARACTER*60 EQUIMALENCED 
12 13 







CNFILT 

EXTERNAL SUBROUTINE 
306 





0104H 

30 

CRESP 

CHARACTER)K30 EQUIVALENCEB 
^11 13 70 73 88 100 

138 154 160 165 170 173 

211 218 224 230 235 

106 

184 

112 

189 

117 

194 

123 

200 



CRLF 

EXTERNAL SUBROUTINE 
50 55 60 67 199 204 

265 293 341 375 378 

209 

217 

226 

232 

0050H 

36 

CST 

REAL*4 DIMENSIONEB COMMON 
17 42 82 110 146 148 

150 

304 

323 




CZT 

EXTERNAL SUBROUTINE 
280 







DZTR 

EXTERNAL SUBROUTINE 
335 







riECOIiA 

EXTERNAL SUBROUTINE 
249 





nPAru 

Avnwil 

4 

BELF 

REAL*4 

84 85 99 279 306 303 

311 

314 

• 


2CD0H 

4 

BELT 

REALM 

194 230 270 





0034H 

20 

BFALT 

REALM DIMENSIONEB COMMON 
2 16 24 256 





2CEAH 

4 

BIFF 

REAUK4 
274 275 





005CH 

40 

BLIH 

REAL!ji4 DIMENSIONEB COMMON 
2 16 23 256 





2CBEH 

4 

BTHEI 

REAL*4 

106 109 110 211 





2CC2H 

4 

BTHER 

REAL*4 

110 273 274 





0003H 

8 

BTHETA 

REAL*4 DIMENSIONEB COMMON 
2 16 21 109 







BUAIT 

EXTERNAL SUBROUTINE 
379 





0033H 

12 

FCAL 

REALM DIMENSIONEB COMMON 
2 16 23 95 98 







FBLEV 

EXTERNAL SUBROUTINE 
314 







FBLOB 

EXTERNAL SUBROUTINE 
311 





2D12H 

4 

FBOP 

REAL!|(4 

306 311 314 317 





004CH 

8 

FNOIZ 

REALM DIMENSIONED COMMON 
2 16 20 85 





0054H 

8 

FPI3L 

REAL*4 DIMENSIONEB COMMON 
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2 U 20 

CETVLU EXTERNAL SUBROUTINE 

lOA 117 138 

llA GG COMMON-BLOCK 

17 

GXI EXTERNAL SUBROUTINE 

302 

GXT EXTERNAL SUBROUTINE 

301 

GYI EXTERNAL SUBROUTINE 

303 


2CD4H 

2 

I 

INTEGER*2 

224 272 273 274 275 298 

309 311 314 316 319 320 

343 352 353 356 357 358 

299 

321 

360 

300 

323 

361 

306 

325 

362 

307 

345 

363 

308 

346 

364 



I32SUM 

EXTERNAL SUBROUTINE 
336 337 346 






244DH 

1 

lAUTP 

INTEGER*! 

3 196 193 223 269 






244CH 

1 

lAUTR 

INTEGER*! 

3 172 175 222 250 






2445H 

4 

I BCD 

INTEGER*! DIMENSIONED 
3 353 357 360 362 








I BELL 

EXTERNAL SUBROUTINE 
59 71 247 266 








IBFILL 

EXTERNAL SUBROUTINE 
66 






04A9H 

2 

IBFLW 

INTEGERS COMMON F.QUIVALENCED 
13 2V4 






244BH 

1 

IBL 

INTEGER*! 

3 57 63 64 286 288 

332 

320 

365 

366 

373 

380 

2C56H 

*• 

IBND 

INTEGER*2 

7 77 81 82 83 84 

109 121 206 364 

85 

86 

95 

96 

99 

244EH 

1 

IBOVF 

INTEGER*! 

3 282 287 292 






2C7AH 

16 

IBPT 

INTEGER*2 DIMENSIONED 
7 319 320 357 






04B3H 

2 

I CALL' 

INTEGER*2 COMMON EQUIVALENCED 
13 342 






04BIiH 

4 

ICLC 

INTEGER*2 DIMENSIONED COMMON EQUIUALENCED 
7 13 



2C53H 

2 

ICNT 

INTEGER*2 

7 65 66 279 280 285 

357 359 360 362 365 366 

382 384 385 

236 

367 

238 

368 

350 

369 

353 

380 

355 

381 

2C8CH 

2 

lEFLG 

INTEGER*2 

51 132 169 193 205 210 

214 

223 

229 

377 


OOOOH 

2 

lEOC 

INTEGER*2 COMMON 
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00D5H 8 IP0L2 

2454!l 2048 XPSD 
0104H 30 IRESP 


lUSRT 

2449H 1 IWAIT 


OODIH 

2CCAH 

2CE4H 

0002H 


2 lyN 

2 J 

2 K 
KBPHAL 
1 KESC 
KEYBRD 

KEYCHK 


INTEGERK2 MMENSIONED COMMON EQUIMALENCED 
6 13 92 

INTEGER*2 BIMENSIONED 
6 47 336 337 346 

INTEGER*! niMENSigNED CnUIVALENCED 
3 13 72 73 74 75 79 80 81 

101 102 104 106 113 114 115 117 124 

135 136 137 138 155 156 157 161 162 

m m ® m 

EXTERNAL SUBROUTINE 
45 

INTEGER*! 

3 283 328 331 

INTEGER*! DIMENSIONED COMMON EOUIVALENCED 
3 13 75 104 115 130 137 157 163 

203 238 

INTEGER*2 

127 128 131 133 138 140 141 143 144 

148 150 170 215 216 218 243 246 

INTEGER*2 

260 261 351 352 353 381 382 333 

EXTERNAL SUBROUTINE 
369 383 

INTEGER*! COMMON 
3 13 62 271 

EXTERNAL SUBROUTINE 

73 80 90 102 114 125 136 156 162 

186 191 202 237 

EXTERNAL SUBROUTINE 
244 


OODDH 

5 

KXP 

INTEGER*! 
3 16 

DIMENSIONED COMMON 
27 141 289 332 340 

2CB4H 

2 

L 

INTEGEp2 

310 311 313 314 

01E3H 

80 

LANTll 

INTEGER*2 
4 15 

DIMENSIONED COMMON EQUIUALENCED 
23 

0233H 

30 

LANT12 

INTEGER*2 
4 15 

DIMENSIONED COMMON EQUIVALENCED 
30 

0323H 

80 

LANT13 

INTEGER*2 
4 15 

DIMENSIONED COMMON EQUIVALENCED 
32 

03C3H 

30 

LANT14 

INTEGER*2 
4 15 

DIMENSIONED COMMON EOUIVALENCED 
34 

0233H 

80 

LANT21 

INTEGERI2 
4 15 

DIMENSIONED COMMON EQUIVALENCED 
29 

02D3H 

80 

LANT22 

INTE6ERI2 
4 15 

DIMENSIONED COMMON EOUIVALENCED 
31 

0373H 

80 

LANT23 

INTEGER*2 
4 15 

DIMENSIONED COMMON EOUIVALENCED 
33 

0413H 

80 

LANT24 

INTEGER*2 
4 15 

DIMENSIONED COMMON EOUIVALENCED 
35 
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2CA2H 


2CA0H 

00E3H 


2C5AH 

244AH 

2C54H 

2CB2H 

2CB0H 

2CDAH 

0074H 

2CF6H 

2CF2H 

2D1AH 

0094H 


LEUMP8 
2 LT 

MFLAG 

HFPNUH 

MOD 

MSGOUT 

MSKSET 
2 MX 
8 NC 

NERD 
U NFEL 

1 NPASS 

2 NPZN 
2 NZE 
2 NZL 

2 NZPAS 
20 FARM 

4 PC 
PCPN 
4 PN 
4 PR 
20 PREV 


EXTERNAL SUBROUTINE 
49 

INTEGERI2 

64 246 248 319 353 360 
380 385 

EXTERNAL SUBROUTINE 
364 


362 364 365 372 373 




13 


INTRINSIC 
64 309 373 

EXTERNAL SUBROUTINE 
54 72 79 89 101 113 

179 185 190 201 208 

294 342 376 377 

EXTERNAL SUBROUTINE 
278 

INTEGER^i2 

63 64 371 372 373 

INTEGER*! DIMENSIONED COMMON 


124 135 
220 227 


155 161 166 

233 236 26/ 


3 

16 

27 

54 

72 

73 

79 

80 

89 

90 

101 

102 

106 

113 

114 

117 

124 

125 

135 

136 

138 

155 

156 

161 

162 

166 

167 

16u 

17? 

180 

185 

186 

190 

191 

192 

201 

202 

208 

213 

220 

227 

233 

236 

237 

267 

291 

294 

334 

342 

344 

376 

377 





EXTERNAL SUBROUTINE 
246 

INTEGER*2 DIMENSIONED 
7 306 307 308 309 311 


314 346 


97 121 206 364 


INTEGER*! 

3 61 251 370 

INTEGER*2 
7 87 92 94 

INTEGER*2 
86 336 337 

INTEGER*2 
85 336 

INTEGER*2 

242 255 257 264 

REAL*4 DIMENSIONED 
2 146 148 150 249 256 259 261 

296 297 301 302 303 306 319 

REAL*4 

296 319 337 338 347 360 

EXTERNAL SUBROUTINE 
296 

REAL*4 

296 319 336 338 362 

REAL*4 
346 347 

REAL*4 DIMENSIONED 


275 277 285 
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2 259 261 


2CB6H 

4 

RCAL 




RUNLHT 

EXTERNAL SUBROUTINE 
259 

00A8H 

32 

SIGNA 

REAL!X4 DIMENSIONED 
2 325 348 357 

2CA8H 

4 

SLMDA 

REAUK4 
83 206 306 

008SH 

12 

START 

REAL*4 DIMENSIONED 
2 170 173 224 

2CE6H 

4 

SUM 

REAL44 
273 275 

2CC6H 

4 

SYSK 

REAL44 

117 119 121 211 

2CCCH 

4 

TO 

REAL)f(4 

173 252 253 254 

2CDCH 

4 

T1 

REAL44 „ 

249 252 253 254 

0020H 

32 

TANTL 

REAUii4 DIMENSIONED 
2 

2CD6H 

4 

TC 

REAL44 

241 285 296 

2CE0H 

4 

TDEL 

REAL44 
254 270 

0098H 

32 

THETA 

REAL44 DIMENSIONED COMMON 
2 16 26 273 274 235 

2CEEH 

4 

TI 

REAL44 

277 279 296 



UNPACK 

EXTERNAL SUBROUTINE 
248 



VALID 

EXTERNAL SUBROUTINE 
256 

OOlOH 

8 

XDELF 

REAL)|i4 DIMENSIONED COMMON 
2 16 21 84 

2D06H 

4 

XI 

REAL44 

302 305 306 

OOOOH 

8 

XLMDA 

REAL44 DIMENSIONED COMMON 
2 16 21 83 

0018H 

32 

XSYSK 

REAL44 DIMENSIONED COMMON 
2 16 22 121 

2D02H 

4 

XT 

REAL44 

301 302 303 304 305 306 
348 

2D0AH 

4 

YI 

REAUH4 

303 306 319 


MOnULE INFORMATION.* 
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VARIABLpAREf SIZE « 2DpH uiioD 

0 PROGRAH ERRORS S) IN PROGRAH UNIT INTCOH 

0 TOTAL PROGRAM ERROR(S) 

END OF FORTRAN COMPILATION 



**?F{{^?liSo®c6DE(4iOOH) C0LUHNS(2) SYHBOLS 4 


/GG/»/A/»MEHORy) MAP PRINK JLPH 


SYMBOL TABLE OF MODULE SIGMAO 

VALUE TYPE SYMBOL 

MOD 
4363H SYM 

m ijfi 

D18DH SYM 
9E6DH SYM 
D209H SYM 
DIBDH SYM 
9E95H SYM 
D1D9H SYM 
9EA1H SYM 
9EDSH SYM 
9F4DH SYM 
9F52H SYM 
D268H SYM 
D258H SYM 
D23DH SYM 
C25AH SYM 
C257H SYM 
C258H SYM 
C25AH SYM 
D267H 
D424H 
D3B8 
B45S 
D4F8 
D598 
D2AE 
D32A 
D2SA 
D368 . 

D442H 
CAA3H 
CAA7 
CA87H 
D23DH 
B25AH 
D25AH 
D41AH 
9EP5H 
D&2EH ^ 

D6A5H SYM 


D4|5H 

43^H 

CA9BH 


SYM 

SYM 

SYM 


554AH SYM 
CAADH SY ; 
4452H SYM 
4B09H SYM 
CAB5H SYM 
CABDH SYM 
44ECH SYM 
CACIH SY 
458DH SYM 
4584H SYM 
45B5H SYM 
CAC9H SYM 
462FH SYM 
4A4CH SYM 

48C7H SYM 
429DH SYM 
47BDH SYM 
485AH SYM 
489EH SYM 
48D3H SYM 
493AH SYM 
42BEH SYM 
4A54H SYM 


INTCOM 

INTCOM 

FNOIZ 

ANGT 

DTHETA 

ACOVR 

DFALT 

FCAL 

START 

FPI3L 

PREV 

lOBUF 

I OVER 

lOUT 

NC 

ILC 

lOVRQ 

lUAIT 

NPASS 

IBL 

lAUTP 

IMSK 

INZERR 

LANT21 

..ANT22 

LANT23 

LANT24 

CANT2 

CANT4 

IPOLZ 

IGTBL 

ICLC 

IBND 

NFEL 

IBPT 

CIOVRQ 

CIYN 

CIPOLZ 

CFAERR 

CIOBUF 

IBFLW 

CL 

CST 

?5 

eiopB 

T7000 

MX 

?115 

?740 

SLMDA 

NZL 

?160 

L 

?200 

?196 

7203 

lERR 

7240 

7305 

SYSK 

7415 

7500 

7430 

7460 

7481 

7483 

7520 

7570 

7600 

7655 


VALUE TYPE SYMBOL 


9E0DH SYM 
9E2DH SYM 
DlfSH SYM 
D19DH SVr, 
DIEIH SYM 
9E81H SYM 




SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 


D1C9 

mi 

9F11 
D5E8 
D256 

gii 

D61A 
D6DB 
C259 
C25B 
C25CI 
D368I 
D403 
B4ASH 
D543 
D270 
D2EC 
9F11 
C261 
D270I 
CA61 
CA65 
CA77 
CA97t 
D5E3H 
D258' 

D642H 
9F11H 
9F111 
D633H 
D67DH 
D6D9H 
CA99H 
427AH 
43CEH 
CAAFH 
4412H 
CABIH 
CAB9H 
CABFH 
4540H 
CAC3H 
4574H 
CAC7H SYM 
4620H SYM 
CACBH SYM 
CACFH SYM 
46CDH SYM 
46E3H SYM 
CAD7H SYM 
4815H SYM 
47F9H SYM 
48BDH SYM 
487CH SYM 
4908H SYM 
4A13H SYM 
4A0EH SYM 
CAD9H SYM 
4A1FH SYM 


SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

i?ii 

SYM 

SYM 

SYM 

SYM 

I?!! 

SYM 

S?S 

SYM 


CELL 

TANTL 

XLMDA 

XSYSK 

ruM 

FARM 

XDELF 

BMUID 

SIGMA 

INERD 

IRESP 

IFATAL 

lYN 

IBCD 

KXP 

IFAERR 

KESC 

lAUTR 

IBOVF 

lOFLG 

LANTll 

LANT12 

LANT13 

LANT14 

CANTl 

CANT3 

IPLZ 

IPSD 

IGTBC 

NPZN 

ICNT 

IFDL 

INZ 

CCLC 

CRESP 

CNERD 

ICALW 

CC 

lEOC 

lEFLG 

721 

740 

LT 

785 

BMW 

DELF 

NZE 

7130 

RCAL 

7195 

IFCAL 

7255 

DTHEI 

OTHER 

7380 

7385 

J 

7475 

7473 

7490 

7482 

7545 

7625 

7620 

TO 

7630 
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4A86H 

42F4H 

« 

434BH 

s® 

4E23^ 

4E32I- 


TA80 



4F19H 
556EH 
4F7BH 
CAF7 
4F92i 
SOOB 
501A 
CB03 
52BA 
CBOF 
CB17 
CBIF 
51DO! 
52C4 

m 

53D1 
541BI 
55881 

0027H 

OOCEH 

55D8H 

SA02H 

SilFH 

55F0H 

55EAH 


SYh 
HOD 
SYH 
SYH 
SYH 
SYH 
SYH 
SYH 
MOD 
SYH 
SYH 
MOD 
OOODH SYH 
OOOAH SYH 
5694H 
56A3H 
569AH 


0008H 

OOODH 

5674H 

5AADH 

5635H 

5663H 

5A81H 

5693H 


SYH 
SYH 
SYH 
MOD 
SYH 
SYH 
SYH 
SYH 
SYH 
SYH 
SYH 
SYH 
SYH 
SYH 
MOD 
SYH 
SYH 
MOD 
57EEH SYH 


56ECH 

CB2FH 

CB33H 

CB37H 

571DH 

5ACFH 

5750H 

5768H 

56EAH 

57D1H 

57DDH 

57E2H 


5804H 

5816H 

CB4DH 

CB51H 


SYH 

MOD 

SYH 

SYH 

SYH 


1305 

..r 

Y1 

FDOP 
"121C 
1310 

m 

?1700 

?1800 

7777 

lUSART 

f;MD 

MODE 

cco 

CPI 

DC 

STP 

KEVIN 

BACK 

CR 

Cl 

GETCH 

NEXT 

SKIP2 

OUTPUT 

GBYT 

XIT 

CR 

LF 

CRLF 

ECHOS 

ECHO 

GETMLU 

GETVLU 

lOBUFF 

N20 

XNUM 

?5 

?10 

?15 

?25 

?35 

?52 

IBFILL 

IBFia 

LL2 

DWAIT 

DUAIT 

LP2 

RUNLMT 
RUNLMT 
I OVER 
LZ 


4EF8 
4F07 
4F28 

CAFB 
5001H SYK 
5026H SYM 
CAFFH SYM 
CB07H SYM 
CBOBH SYH 
CB13H SYM 

CB23H SYM 
52DBH SYM 

m 

CB27H SYM 
543 IH SYM 


OOCDM SYM 
55CFH SYM 


5628H SYM 
5A11H SYM 
561AH SYM 


0007H SYM 
564AH SYM 
565CH SYM 
5631H SYM 
5652H SYM 


?730 

Y860 

?865 

n 

7i 
TC 
?|15 

?940 

?945 

?950 

?96Q 

?965 

?975 

TJOOO 

SUM 

TI 

?i050 

?U00 

PN 

AROL 

ANGL 

XT 

BNDU 

T1200 

ANGTL 

TU50 

?1660 

T1690 

PR 

?1900 


CNCTL 

lUSRT 

CO 

CPO 

CP2 

GC 

STPO 

BELL 

BKSPC 

FILL 

KEYBRD 

SKIP! 


567EH SYM MSGQUT 


OOIBH SYM 
56BAH SYM 
56C1H SYM 
56B4H SYM 
5AC5H SYM 


CB2BH 
CB31H 
CB35H 
CB2DH 
CB39H 
57B9H 
575CH SYM 
5774H SYM 
57C5H SYM 
57B8H SYM 


SYM 

SYM 

SYM 

SYM 

SYM 

SYM 


ESC 

CO 

DELAY 

ECHIO 

LOOP 

CIOBUF 

NIO 

lERR 

CIOBUFG 

eiOPB 

?50 

?20 

?30 

?51 

?40 


57E0H SYM LLl 


57F3H SYM LOOP 


CB4BH SYH 
CB4FH SYM 


PREV 

PARH 


CB52H SYM UZ 
159 


S898H SYH 
CBS7H SYM 
CB5BH SYM 
HOD 
59E2H SYM 
59C9H SYM 
MOD 
4020H SYM 
MOD 
59E7H SYH 
CB5FH SYM 
CB63^ SYM 
D6A5H SVi‘i 
DAB5H SYM 
5A43H SYM 
CB6FH SYM 
5B1FH SYM 
5A94H SYM 
CB73H SYM 
5B93H SYM 
5BBFH SYM 
MOD 
5C78H SYM 
MOD 
5C9AH SYM 
CB77H SYM 
CB7BH SYM 
CB7FH SYM 
CB81H SYM 
CB83H SYM 
5D6BH SYM 
MOD 
?5DAOH SYM 
CB89H SYM 
CB8DH SYM 
5DEBH SYM 
5E43H SYH 
MOD 
5E5AH SYM 
CB97H SYM 
CB9BH SYH 
CB9FH SYM 
CBAIH SYM 
CBA7H SYM 
5F82H SYM 
CBABH 3YM 
601FH SYM 
CBAFH SYM 
MOD 
4034H SYM 
CBB5H SYM 
MOD 
OOEBH SYM 
OOECH SYM 
00E9H SYM 
0009H SYM 
0009H SYM 
OOIFH SYM 
OOODH SYM 
0008H SYM 
OOFFH SYM 
0020H SYM 
00E7H SYM 
60DOH SYM 
60C3H SYM 
AOFFH SYM 
60A2H SYM 
60E2H SYM 
60C8H SYM 
60DBH SYM 
MOD 

610AH SYM 
D4D9H SYM 
MOD 
6110H SYM 
MOD 

6125H SYM 
D6D9H SYM 
MOD 

001 2H SYM 


?10 

r 

UNPACK 

RR4B 

M CK 
PS 
LDJMPS 
DECODA 
pECODA 
NERZ 
PARM 
CL 
CST 
?30 
K 

?50 

p5 

?80 

Reychk 

KEYCHK 

VALID 

VALID 

DF 

IVAL 

LZ 

?10 

MFLAG 

MFLAG 

lOF 

IB 

?10 

?20 

MFPNUH 

MFPNUM 

ICOL 

I OUT 

NK 

K 

INUM 
?10 
IH . 

?20 

INDX 

K6PHAL 

KBPHAL 

J 

INIT 

C8255 

D3251 

DATA 

DMA 

FILE 

ICUl 

INTEA 

LOADN 

MASK 

0CU2 

UNSTB 

BPLISR 

CZTR 

FNSH 

INI259 

INIPIO 

LOAD 

NERD 

IKEYI 

IKEYI 

lEOC 

CZTINT 

CZTINT 

lE'NDI 

lENDI 

lEOC 

AHDMUL 

MULT 


CB53 

593C 

59C8 


SYM AL 
SYM ?20 
SYM ?30 


59CEH SYM STEP 


CB5DH 

CB61H 

59FDH 

SA40H 

5A4AH 

CB71H 

5AD4H 

5829H 

5B70H 


SYM 

SYM 


Sin 
SYM 
SYM 


SYM 


CB75H SYM 
CB79H SYM 
CB7DH SYM 
CB80H SYM 
5D95H SYM 
CB85H SYM 


CB87H SYM 
CB8BH SYM 
CB8FH SYM 
CB91H SYM 
CB93H SYM 


CB95H 

CB99H 

CB9DH 

A029H 

CBA3H 

5F2AH 

CBA9H 

5F9AH 

CBADH 


SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 

SYM 


CBB3H SYM 
6077H SYM 


SYM 

SYM 

SYM 

SYM 

SYM 

SYM 


00A6H SYM 
00E8H SYM 
0003H ' 
0020H 
OOBDH 
0040H 
OOOw 
OOOAH 
OOODH SYM 
OOFDH SYM 
OOEFH SYM 
AOBFH SYM 
AOBDH SYM 
60C6!i SYM 
607BH SYM 
30B5H SYM 
60BIH SYM 
60EAH SYM 


ll 

?10 

?20 

?25 

J 

?40 

?60 

m 


5C95H SYM XI T 


DL 

101 ’ 

PARM 

iJZ 

?20 

IDF6 


IC 

lOUT 

N2 

I 

K 

FPNBR 

IBPT 

IBCD 

?30 

FP 

?5 

J 

?15 


lOUT 

?10 

CU3255 

D8255 

DATE 

EDI 

FILE 

ICW2 

INTEB 

LSB 

MSB 

UMASK 

UNSYN 

CZT 

DSABLE 

IBIPHL 

INICZT 

INTSET 

MSKSET 

STB 


D6DBtt SYM KESC 


D6DBH SYM KESC 

612CH SYM AMDMUL 
160 


HOD 
001 3H SYH 
HOD 

0013H SYH 
OOACH SYH 
006DH SYH 
6187H SYH 
HOD 
OOIDH SYH 
618?H SYH 
HOD 
0003H SYH 
001 OH SYH 
0002H SYH 
AIAIH SYH, 
HOD 
0003H SYH 
001 IH SYH 
0002H SYH 
AIDFH SYH 
HOD 
0005H SYH 
001 2H SYH 
0074H SYH 
004DH SYH 
0004H SYH 
CBD7H SYH, 
HOD 
001 IH SYH. 

HOD 
OOlOH SYH 
HOD 
OOlOH SYH 
0012H SYH 
62CEH SYH 
HOD 
OOlOH SYH, 
OOIFH SYH 
006FH SYH 
62F5H SYH 
6344H SYH 
HOD 
OOFOH SYH, 
HOD 
OOFOH SYH 
A361H SYH 
HOD 
OOFOH SYH 
HOD 

OOFOH SYH 
HOD 

OOFOH SYH 
63BFH SYH 
A3CEH SYH 
HOD 
OOIDH SYH 
006EH SYH 
63D1H SYH 
HOD 
001 3H SYH 
OOACH SYH 
0012H SYH 
6470H SYH 
HOD 
0013H SYH 
OOACH SYH 
001 2H SYH 
A472H SYH 
HOD 

» m 

HOD 

001 3H SYH 
001 9H SYH 
OOFOH SYH 
64E8H SYH 
HOD 
OOlOH SYH 
OOIFH SYH 
OOFOH SYH 


AHDIM 

FDIV 

FDLEV 

FDIV 

lAD 

I SUB 

TWO 

CBNDU 

PLOT 

CBHDU 

6X1 

COS 

FADD 

SIH 

GXI 

GYI 

COS 

FSUB 

SIN 

GYI 

CLNPT 

ASIN 

FHUL 

ICHS 

I SUB 

TAN 

HOLD 

AHDSUB 

SUBT 

AHDADD 

RADD 

IN'^’CT 

FAi;::' 

HULT 

INFGT 

FDLOD 

FADD 

FIX 

IDIV 

FDLOD 

ONE 

GIVE 

PORT 

GET 

PORT 

PCT 

INTLOD 

PORT 

INTSTR 

PORT 

AHOLOD 

PORT 

LABELl 

LABELS 

ALTFP 

FLOAT 

IHULT 

ALTFP 

DRPFP 

DIV 

lAD 

HULT 

TEN 

VELFP 

DIV 

h8Et 

VELFP 

TSECS 


IH 
PCPN 
DIV 
EXCHG 
PORT 
PCPN 
CELCNT 
AD 
FIX 
PORT 


613FH SYH 

AHDIV 

OOIFH SVH 
006FH SYll 
6152H SYT 

FIX 

IDIV 

FDLEV 

001 2H SYH 

HULT 

001 9H SYH 
001 2H SYH 
0004H SYH 

EXCHG 

HULT 

TAN 

001 9H SYH 
001 2H SYH 
0004H SYH 

EXCHG 

HULT 

TAN 

OOlOH SYH 
001 IH SYH 
OOIFH SYH 
001 7H SYH 
A222H SYH 

FADD 

FSUB 

IFIX 

PUSHT 

CLNPT 

62A3H SYH 

AHDSUB 

62BBH SYH 

AHDADD 

OOIFH SYH 
A2F1H SYH 

FIX 

HALF 

001 3H SYH 
006CH SYH 
006DH SYH 
6340H SYH 
634.4H SYH 

FDIV 

lAD 

ISUB 

HALF 

TWO 

6348H SYH 

GIVE 

A3A4H SYH 

BSY 

637AH SYH 

INTLOD 

6388H SYH 

INTSTR 

6397H SYH 
63CBH SYH 

AHDLOD 

LABEL2 

006CH SYH 
0012H SYH 
6425H SYH 

lAD 

MULT 

TEN 

OOIDH SYH 
006EH SYil 
6427H SYH 

FLOAT 

IHULT 

DRPFP 

OOIDH SVH 
006EH SYH 
64B^H SYH 

FLOAT 

IHULT 

TEN 

006EH SYH 
64B4H SYH 

IHULT 

TSECS 

0017H SYH 
001 2H SYH 
6526H SYH 

ENTR 

MULT 

HALF 

001 3H SYH 
001 2H SYH 
0004H SYH 

DIV 

HULT 

TAN 
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A52AH SYM 
HOD 
OOFOH SYM 
<S5A8H SYM 
A5A9H SYM 


M 

HOD 

SYM 


OOFOI 

S 

65F8H SYM 
65E5H SYM 

0007H S?8 
OOlOH SYM 
OOIFH SYM 
0017H SYM 
OOOIH SYM 
A70AH SYM 
HOD 
A70AH SYM 
MOD 
001 IH SYM 
0017H SYM 
0004H SYM 
MOD 
OOACH SYM 
6777H SYM 

. . MOD 

OOlOH SYM 
OOIDH SYM 
OOAEH SYM 
67C6H SYM 
67C0H SYM 
HOD 
0012H SYM 
OOllH SYM 
67CAH SYM 
MOD 
OOlCH SYM 
0008H SYM 
6805H SYM 
A7FAH SYM 
MOD 
OOFOH SYM 


CELCNT 

AHDCMD 

PORT 

AHDCHD 

BZY 

L00P2 

UNDFLO 

AMDSTR 

PORT 

AMDSTR 

BUSY 

SKIPl 

UNDFLO 

FADD 

FIX 

PUSHT 

SORT 

HALF 

IBELL 

I BELL 

GXT 

FSUB 

PUSHT 

TAN 

MINHR 

lAD 

no 

FLOAT 

IMULT 

Flo 

160 

CCELL 

MULT 

SUBT 

CCELL 

I32SUM 

FL0T32 

LOG 

FLOAT 

LOOP 

I32LOD 

PORT 


6564H SYM HALF 


MEMORY MAP OF MODULE SIGMAO 
READ FROM FILE tFl ISIGMAO.LNK 
WRITTEN TO FILE IFltSIGMAO 
MODULE START ADDRESS 4363H 

START STOP LENGTH REL NAME 


4000H 

4100H 

9E0DH 

D185H 

D665H 

D6D9H 

D6DCH 

F6C0H 


4020H 

21H 

A 

ABSOLUTE 

9E0CH 

5D0DH 

B 

CODE 

D184H 

3378H 

B 

DATA 

D664H 

4E0H 

B 

// 

D6D8H 

74H 

B 

/GG/ 

D6DBH 

3H 

B 

/A/ 

F6BFH 

1FE4H 

B 

MEMORY 

F854H 

195H 

B 

STACK 


001 8H SYM 
6573H SYM 
6595H SYM 
65B0H SYM 


0018H SYM 
65DDH SYM 
65EBH SYM 
65FAH SYM 


0003H SYM 
001 3H SYM 
001 2H SYM 
0002H SYM 
660DH SYM 
CBDBH SYM 


001 2H SYM 
OOOIH SYM 
6710H SYM 

006EH SYM 
6759H SYM 


001 3H 

006CH 

0012 

67C2H 

6779H 


SYM 
SYM 
H SYM 




OOFOH SYM 
0004H SYM 


PULL 

BUSY 

LOOP 

NOERR 


PULL 

BACK 

NOERR 

SKIP2 


COS 

FDIV 

MULT 

SIN 

CNFILT 

ISAUE 


MULT 

SORT 

GXT 

IMULT 

MINHR 

DIV 

lAD 

MULT 

F60 

TIMEFP 

PORT 

TAN 


002CH SYM IADD32 
00121 SYM MULT 
67F0H SYM I32SUM 
681 FH SYM TEN 

6823H SYM I32L0D 
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APPENDIX C 

Bi-Phase-L Output Frame 


Bi -Phase L Output Data Format 


WORD Nbr (4 Bits Each) 
1 




CONTENT (H means Hex) 

SYNC FH 

SYNC BH 2 

SYNC FH 3 

FRAME 4 

TIME, SEC. (Tenths) 5 

TIME, SEC. (Units) 6 

TIME, SEC. (Tens) 7 

TIME, MIN. (Units) 8 

TIME, MIN. (Tens) 9 


(Same As Input NERDAS) 


FLIGHT Nbr (Units) 103 
FLIGHT Nbr (Tens) 104 
LINE Nbr (Units) 105 
LINE Nbr (Tens) 106 
RUN Nbr (Units) 107 
LINE START (Units) 108 
ANGLE 1 (Tenths) 109 
ANGLE 1 (Units) 110 
ANGLE 1 (Tens) 111 
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Bi-Phase L Output Data Format (continued) 


CONTENT (H means Hex) 

WORD Nbr (4 Bits Each) 

ANGLE 1 

(Sign) 

112 

ANGLE 2 

(Tenths) 

113 

ANGLE 2 

(Units) 

114 

ANGLE 2 

(Tens) 

115 

ANGLE 2 

(Sign) 

116 


ANGLE 8 

(Tenths) 

137 

ANGLE 8 

(Units) 

138 

ANGLE 8 

(Tens) 

139 

ANGLE 8 

(Sign) 

140 

SIGMA 1 

(Tenths) 

141 

SIGMA 1 

(Units) 

142 

SIGMA 1 

(Tens) 

143 

SIGMA 1 

(Sign) 

144 

SIGMA 2 

(Tenths) 

145 

SIGMA 2 

(Units) 

146 

SIGMA 2 

(Tens) 

147 

SIGMA 2 

„ (Sign) 

148 


SIGMA 8 

(Tenths) 

169 

SIGMA 8 

(Units) 

170 

SIGMA 8 

(Tens) 

171 
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Bi-Phase I Output Data Format (continued) 

CONTENT (H means Hex) WORD Nor (4 Bits Each) 


SIGMA 8 

(Sign 

172 

CPWR 

(Tenths) 

173 

CPWR 

(Units) 

174 

CPWR 

(Tens) 

175 

CPWR 

(Sign) 

176 

NPWR 

(Tenths) 

177 

NPWR 

(Units) 

178 

NPWR 

(Tens) 

179 

NPWR 

(Sign) 

180 

NPZN 

(Units) 

181 

IVALB 

(Units) 

182 

SALARM 

(Units) 

183 

I5YSK 

(Units) 

184 

lOVRB 

(Units) 

185 

IBND 

(Units) 

186 

ITHE 

(Units) 

187 

DDH 

Frame End Fill 

188 


DDH 

Identified 

225 

DDH 

°°HEX 

256 
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APPENDIX D 

Subroutine Listings (Alphabetical) 


ASM30 }FUAFLOAT*SRC DEBUG PAGELENGTH( 75 ) PAGEWIDTH( 90 ) 


ISIS-II 8080/8085 HACRO ASSEHBLERr V3.0 


AFLOAT PAGE 1 


LOG OBJ 


OOID 


0001 


0009 

OOOA 


LINE 

1 


I 1 

3 } 

4 f 

5 f 

6 ^LOAT 

8 EXTRN 

9 { 

JO PUBLIC 


SOURCE STATEHENT 

NAME AFLOAT 

SUBROUTINE AFLOAT< IN»FP) 

Ut FP=FLOAT(IN) 

EQU lOH 

INTLODfAMDSTRfANDCKD 

AFLOAT 


El 


12 

13 

14 

CSEG 

• 

AFLOAT} POP, 


fSAVE RETURN ADDR 
fiN t 

CDOOOO 

E 

15 

CALL 

INTLOD 

3E1D 

CDOOOO 

E 

16 

17 

MVI 

CALL 

A » FLOAT 
AHDCMD 

»FLOAT<IN) 

^2 

4B 

CDOOOO 

E 

18 

19 

20 

MOV 

MOV 

CALL 

B>D 

CfE 

AMDSTR 

»FP ^FLOAT< IN ) 

E9 


21 

22 

23 

PCHL 

• 

END 


JRETURN 


PUBLIC SYMBOLS 
AFLOAT C 0000 

EXTERNAL SYMBOLS 

AHDCMD E 0000 AMDSTR E 0000 

USER SYMBOLS 

AFLOAT C 0000 AHDCMD E 0000 
ASSEMBLY COMPLETE » NO ERRORS 


INTLOD E 0000 
AMDSTR E 0000 


FLOAT, A OOID INTLOD I 


0000 
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ASH80 {F1‘,AINDX»SRC 0EBUG PAGELENGTH( 77 ) PAGEGIDTH( 90 ) 


ISIS-II 3080/8085 MACRO ASSEMBLER^ V3*0 AINDX PAGE 1 


LOC 

OBJ 


LINE 

SOURCE 

STATEMENT 





1 

NAME 

AINDX 





2 f 

7 i 

SUBROUTINE AINDX( IXf I80»TEN>AGL,RAD 




w f 

4 } 

C! * 

{{{ IX 

=IFIX< AGUjiRAD-TENlflSO 

0012 



v/ P 

6 MULT 

EOU 

12H 


0011 



7 SUBT 

EQU 

IIH 


OOIF 



8 FIX 

EOU 

IFH 


006C 



9 lAD 

EOU 

6CH 





10 







11 EXTRN 

12 f 

AMDLOD 

, INTLOD, INTSTR, AMDCMD 




13 PUBLIC 

AINDX 






14 ( 







15 CSEG 







16 , 




0000 

El 


17 AINDX 1 

POP 

H „ 

,‘SAVE RTN ADDR 

0001 

CDOOOO 

E 

18 

CALL 

AMDLOD 

?AGL t 

0004 

42 


19 

MOV 

B,D 


0005 

4B 


20 

MOV 

C,E 


0006 

CDOOOO 

E 

21 

CALL 

AMDLOD 

f‘RAD t 

0009 

3E12 


32 

MV I 

A, MULT 


OOOB 

CDOOOO 

E 


CALL 

AMDCMD 

fAGLiiiRAD 

OOOE 

Cl 


24 

POP 

B 


OOOF 

CDOOOO 

E 

25 

CALL 

AMDLOD 

iTEN t 

0012 

3E11 


26 

MVI 

A, SUBT 


0014 

CDOOOO 

E 

27 

CALL 

AMDCMD 

,-AGL!iiRAD-TEN 

0017 

3E1F 


28 

MVI 

A, FIX 


0019 

CDOOOO 

E 

29 

CALL 

AMDCMD 

aFIX^AGDjRAIKEN) 

OOlC 

Cl 


30 

POP 

B, 


OOID 

CDOOOO 

E 

31 

CALL 

INTLOD 

JISO t 

0020 

3E6C 


32 

MVI 

A, I AD 


0022 

CDOOOO 

E 

33 

CALL 

AMDCMD 

? f ISO 

0025 

Cl 


34 

POP 

B 


0026 

CDOOOO 

E 

35 

CALL 

INTSTR 

JIX=RESULT 

0029 

E9 


36 

PCHL 


J RETURN 




37 ) 







38 

END 




PUBLIC SYMBOLS 
AIMDX C 0000 

EXTERNAL SYMBOLS 

AMDCHD E 0000 AMBLOB E 0000 


USER SYMBOLS 
AINDX C 0000 
INTLOD E 0000 


AHDCMD E 0000 
INTSTR E 0000 


ASSEMBLY COMPLETE, NO ERRORS 


INTLOD E 0000 INTSTR E 0000 


AMDLOD E 0000 
MULT A 0012 


FIX 

3UBT 


A OOIF 
A 0011 


lAD 


A 006C 


PAGP rQ 

(wlu ® 
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ASH80 JF1IALTFP»SRC DEBUG PAGELENGTH( 75 ) PAGEWIDTH< 90 ) 




ISIS-II 8080/8085 MACRO ASSEMBLER » V3*0 ALTFP PAGE 1 


LOC OBJ 


LINE 

SOURCE STATEMENT 




n 1 

SUBROUTINE ALTFP( ALT i CALT » ITN » IHD » ITH » lUN ) 




NAME 

ALTFP 




i ! 

5 t 







EVALUATES ALTITUDE 

IN METERS! 



8 i 


ALT*FLOAT< IUN+10*( ITNFlOiK IHDf 10*ITH ) ) >ICALT 

0012 


9 f 

10 MULT 

EQU 

12H 


006C 


11 lAB 

EQU 

6CH 


006E 


12 IMULT 

EQU 

6EH 


OOID 


13 FLOAT 

14 i 

EQU 

IDH 




15 

EXTRN 

I NTLOD » AMDCMD » AMDSTR » AMDLOD 



16 

PUBLIC 

ALTFP 




17 i 





18 

CSEG 





19 » 




0000 El 


20 ALTFP! 

POP 

H 

fSAVE RETURN ADDRESS 

0001 CDOOOO 

E 

21 

CALL 

I NTLOD 

?ITH t 

0004 015400 

C 

22 

LXI 

B»TEN 

no t 

0007 CDOOOO 

E 

23 

CALL 

INTLOn 

OOOA SEiSE 


24 

MMI 

A f IMULT 

JX 

OOOC CDOOOO 

E 

25 

CALL 

AMDCMD 

OOOF Cl 


26 

POP 

B 


0010 CDOOOO 

E 

27 

CALL 

INTLOD 

flHD 

0013 3EAC 


28 

MVI 

AflAD 


0015 CDOOOO 

E 

29 

CALL 

AMDCMD 

H 

Zl sw 

C 

E 

30 

31 

i^L 

inKod 

no t 

OOIE 3E6E 


32 

MVI 

A f IMULT 


0020 CDOOOO 

E 

33 

CALL 

AMDCMD 

!X 

0023 Ci 


34 

POP 

B 


0024 CDOOOO 

E 

35 

CALL 

INTLOD 

nTN t 

0027 3EAC 


36 

MVI 

AflAD 


0029 CDOOOO 

E 

37 

CALL 

AMDCMD 

n 

002C 015400 

C 

38 

LXI 

BiTEN 


002F C.''0000 

E 

39 

CALL 

INTLOD 

no t 

0032 3EAE 


40 

MVI 

Af IMULT 

JX 

0034 CDOOOO 

E 

41 

CALL 

AMDCMD 

0037 42 


42 

MOV 

BfD 


0038 4B 


43 

MOV 

C»E 


0039 CDOOOO 

E 

44 

CALL 

INTLOD 

nuN t 

003C 3EAC 


45 

MVI 

AtlAD 

, 

003E CDOOOO 

E 

46 

CALL 

AMDCMD 

{ + 

0041 3E1D 


47 

MVI 

A » FLOAT 

» FLOAT 

0043 CDOOOO 

E 

48 

CALL 

AMDCMD 

0046 Cl 


49 

POP 

B 


0047 CDOOOO 

E 

50 

CALL 

AMDLOD 

JCALT t 

004A 3E12 


51 

MVI 

A » MULT 


004C CDOOOO 

E 

52 

CALL 

AMDCMD 

!X 

004F Cl 


53 

POP 

B 


0050 CDOOOO 

E 

54 

CALL 

AMDSTR 

{SAVE IN ALT 

0053 E9 


55 

PCHL 


{RETURN 

0054 OAOO 


56 TEN! 

DU 

10 



57 

END 




j 


PUBLIC SYMBOLS 
ALTFP C 0000 

EXTERNAL SYMBOl 




J 
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1 


ISIS-n 8080/8085 HACRO ASSEHBLER» y3»0 


ALTFP PAGE 


AHDCMD E 0000 AHDLOD E 0000 AMD8TR E 0000 INTLOO E 0000 


USER SYMBOLS 
ALTFP ^ 0000 


lAD A 006C 
ASSEMBLY COMPLETE » 


AHDCMD E 0000 
IMULT A 006E 


AHDLOD E 0000 
INTLOD E 0000 


AMDSTR E 0000 
MULT A 0012 


FLOAT A 00 ID 
TEN C 00S4 


NO ERRORS 
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ASK80 IFUAHDADD.SRC DEBUG 


ISIS-n 8080/8085 HACr<0 ASSEMBLER! 03 »0 


AMDADD PAGE I 


LOG OBJ 


0010 


0000 

0001 

0004 

0005 

0006 
0009 
OOOB 
OOOE 
OOOF 
0012 


El 

CDOOOO 

42 

4B 

CDOOOO 

3E10 

CDOOOO 

Cl 

CDOOOO 

E9 


E 

E 

E 


LINE 


§ 

3 

4 


RADD 

8 

9 EXTRN 

10 i 

11 PUBLIC 

12 } 

a 

15 ahbadd; 

16 

18 

19 

20 
21 
22 

23 

24 

25 

26 


SOURCE STATEMENT 
NAME AHDADD 

SUBROUTINE AMDADD( R!AlrA2) 
ttt R*AlfA2 
EOU lOH 
AMDLODfAMDCMDrAMDSTR 
AMDADD 


POP 

CALL 

MOV 

MOV 

CALL 


CAI 

^CHL 

END 


H. 


AMDLOD iAl t 
BfD 
C»E 

AMDLOD }A2 t 
AfRADD 

AMDCMD IA1+A2 

AMDSTR JRaAl+A2 
» RETURN 


JSAVE RETURN ADDR 


PUBLIC SYMBOLS 
AHDADD C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 

USER SYMBOLS 

AMDADD C 0000 AMDCMD E 0000 
ASSEMBLY COMPLETE! NO ERRORS 


AMDSTR E 0000 

AMDLOD E 0000 AMDSTR E 0000 RADD 


A 0010 
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A8H80 IFIIAMDGSQ.SRC DEBUG PAGELENGTHC 75 ) PAGEWIDTH( 90 > 


ISIS-n 8080/8085 HACRO ASSEMBLER^ V3*0 AMDGSO PAGE 1 


LOC OBJ 


LINE 


SOURCE STATEMENT 


OOID 

0013 

0010 


0000 

0001 

0004 

0006 

0009 
OOOA 
OOOB 
OOOE 

0010 

0013 

0014 
0017 

0019 
OOlC 
OOID 

0020 


El 

CDOOOO 

3E1D 

CDOOOO 

42 

4B 

CDOOOO 

3E13 

CDOOOO 

Cl 

CDOOOO 

3E10 

CDOOOO 

Cl 

CDOOOO 

E9 


E 

E 

E 

E 

E 

E 

E 


11 

4 $ 

5 

6 1 

7 AFLOAT 

8 ADIV 

9 FADD 

1? i>UBUC 

12 EXTRN 

13 { 

14 CSEG 

4 B* * 

16 AHDGSQl 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 


SUBROUTINE AMDGSQC GSQ » DGN » IGT » TEN ) 
{{{ G8Q«FL0ATnGT)/TEN4DGN 
NAME AMDGSQ 


EQU 

EQU 

EQU 


IDH 

13H 

lOH 


AMDGSQ 

AMDLOD » INTLOD » AMDSTR » AMDCMD 


POP 

CALL 

MOV 

MOV 

CALL 

MVI 

CALL 

POP 

SOi'- 

CALL 

POP 

CALL 

PCHL 

END 


H JSAVE RTN ADDR 

INTLOD. lIGT t 


BfD 

C»E 

AMDLOD 

AiADIV 

AMDCMD 

B 

AMDLOD 
A » FADD 
AMDCMD 
B 

AMDSTR 


IFLOAT(IGT) 


JTEN t 

IFLOAK IGT )/TEN 
•DGN t 

fi 

ISAVyESULT AT tSQ 


PUBLIC SYMBOLS 
AMDGSQ C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 


USER SYMBOLS 
ADIV A 0013 
AMDSTR E 0000 


AFLOAT A OOID 
FADD A OOlO 


ASSEMBLY COMPLETE! NO ERRORS 


AMDSTR E 0000 INTLOD E 0000 

AMDCMD E 0000 AMDGSQ C 0000 AMDLOD E 0000 

INTLOD E 0000 
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ASK30 }FltAMDGN»SRC DEBUG PA6ELENGTH< 75 ) PAGEUIDTH(90) 


ISIS-II 8080/8085 MACRO ASSEMBLER# V3.0 


AMDGN PAGE 1 


LOC OBJ 


LINE 


OOID 

0013 

ooi: 


L 

8 ADZU 


SOURCE STATEMENT 

SUBROUTINE AMD6N( D6M > TUO i DC i TEN # 1 1 # 1 2 ) 


f # » * 
» * * ♦ 


DGN^< FLOAT< I1-I2 )/TEN )*DG/T«0 


NAME AMDGN 


EQU 

EQU 

EQU 


IDH 

13H 


006D 


10 ISUB 

11 { 

EQU 

m 




12 EXTRN 

AMDLOD# INTLOD # AMDSTR »AMDCMD 



13 i 

14 PUBLIC 

AMDGN 





15 i 

16 CSEG 




0000 El 


17 i 

18 AMDGN! 

POP 


{PICK OFF RETURN ADDR 

0001 CDOOOO 

E 

19 

CALL 

INTLOD 

#11 t 

0004 42 


20 

MOV 

B#D 


0005 40 


21 

MOV 

C»E 


0006 CDOOOO 

E 

22 

CALL 

INTLOD 

#12 t 

0009 3E6D 


23 

MVI 

AfISUb 

OOOB CDOOOO 

E 

24 

CALL 

AMDCMD 

#I1~I2 

OOOE 3E1D 


25 

MVI 

A# AFLOAT 

0010 CDOOOO 

E 

26 

CALL 

AMDCMD 

#FL0ATai-I2) 

0013 Cl 


27 

POP 

B 

0014 CDOOOO 

E 

28 

CALL 

AMDLOD 

#TEN t 

0017 3E13 
0019 CDOOOO 

E 

io 

MVI 

CALL 

n 

{FLOAK 11-12 )/TEN 

OOlC Cl 


31 

POP 

B 

OOID CDOOOO 

E 

32 

CALL 

AMDLOD 

#DG t 

0020 3E12 


33 

MVI 

A# MULT 

0022 CDOOOO 

E 

34 

CALL 

AMDCMD 

#FLOAT< 11-12 )/TEN*DG 

0025 Cl 


35 

POP 

B 

0026 CDOOOO 

E 

36 

CALL 

AMDLOD 

»TWO f 

0029 3E13 


37 

MVI 

A#ABIV 

002B CDOOOO 

E 

38 

CALL 

AMDCMD 

»( )*DG/TWO 

002E Cl 


39 

POP 

B 


0C2F CDOOOO 

E 

40 

CALL 

AMDSTR 

{SAVE RESULT AT DGN 

0032 E9 


41 

PCHL 


{RETURN 



42 

END 



PUBLIC SYMBOLS 
AMDGN C 0000 






EXTERNAL SYMBOLS 





AMDCND E 0000 

AMDLOD E 0000 

AMDSTR E 0000 

INTLOD E 0000 

USER SYMBOLS 






ADIV A 0013 

AFLOAT A OOID 

AMDCMD E 0000 

AMDGN C 0000 A 

AMDSTR E 0000 


INTLOD E 0000 

ISUB 

A 006D 

MULT A 0012 

ASSEMBLY COMPLETE 

» NO ERRORS 





AMDLOD £ 


0000 
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ASH80 {n{AMDHUL*SRC DEBUG PAGELENGTH( 75 ) PAGE«IDTH< 90 ) 


ISIS-II 8080/8085 HACRO ASSEHBLER» 03.0 


AHDHUL PAGE X 


LOG OBJ 


LINE 


0012 


1 

2 i 

3 f 

4 { 

5 f 

6 MULT 

7 » 

8 EXTRN 

9 I 

10 PUBLIC 


11 

1 ? 


CSEG 




13 ; 



0000 El 


14 AMBMUL 1 

POP 

H 

0001 CDOCOO 

E 

15 

CALL 

AMDLOD 

0004 42 


16 

MOV 

BfD 

0005 4B 


17 

MOV 

C»E 

0006 CDOOOO 

E 

18 

CALL 

AMDLOD 

0009 3E12 


19 

MVI 

A»MULT 

OOOB CDOOOO 

E 

20 

CALL 

AMDCMD 

OOOE Cl 


21 

POP 

B 

OOOF CDOOOO 

E 

22 

CALL 

AMDSTR 

0012 E9 


23 

OA. i 

PCHL 




£,.\J 

END 



SOURCE STATEMENT 

SuSioUTlSpAMBHUL( R»A1 »A2 ) 
♦*{{ RSA11KA2 
EQU 12H 
AMDLODfAMDSTR»AMDCMD 
AMBMUL 


iSAOE RTN ADDR 
JAl t 


» RETURN 


PUBLIC SYMBOLS 
AHDMUL q 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOB E 0000 

USER SYMBOLS 

AMDCMD E 0000 AMDLOB E 0000 
ASSEMBLY COMPLETE » NO ERRORS 


AMDSTR E 0000 
AMBMUL C OOOO 


AMDSTR E 0000 MULT A 0012 
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i 


1 

4 


ASM80 .TUAMDSUBtSRC DEBUG PAGELENGTH( 75 ) PAGE«IDTH( 90 ) 


ISIS-n 8080/8085 HACRO ASSEMBLERf 03*0 


AMDSUB PAGE 1 


LOG OBJ 


LINE 


0011 


0000 

0001 

0004 

0005 

0006 
0009 
OOOB 
OOOE 
OOOF 
0012 


El 

CDOOOO 

42 

4B 

CDOOOO 

3E11 

CDOOOO 

Cl 

CDOOOO 

E9 


E 

E 

E 


3 

4 

5 


SUDT 


6 

7 f 

8 EXTRN 

9 i 

10 PUBLIC 

11 f 

CSEG 


SOURCE STATEHENT 

NAME AHDSUB 

SUBROUTINE AHDSUB( R>A1>A2 ) 

{{{ R=A1-A2 

EGU IIH 

AHDCMDrAMDLODfANDSTR 

AHDSUB 


12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


AHDSUB t 


POP 

CALL 

HOV 

HOV 

CALL 

HVI 

CALL 

POP 

pcht 

END 


H 

AHDLOD 

DfD 

CiE 

AHDLOD 

A»SUBT 

AHDCHD 

AHDSTR 


fSAVE RTN ADDR 
fAl t 


»A2 t 


JA1-A2 

I^e^urS 


PUBLIC SYHBOLS 
AHDSUB C 0000 

EXTERNAL SYHBOLS 

AHDCHD E 0000 AHDLOD E 0000 

USER SYHBOLS 

AHDCHD E 0000 / AHDLOD E 0000 
ASSEMBLY COHPLETE» NO ERRORS 


AHDSTR E 0000 
AHDSTR E 0000 


AHDSUB C 0000 SUBT A 0011 
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ASM80 {F15CBND«*SRC DEBUG PAGELENGTH< 75 ) PAGEWIDTH( 90 ) 


ISIS-II 8080/8085 MACRO ASSEMBLERf V3»0 CBNDU PAGE 1 


LOC OBJ LINE SOURCE STATEMENT 





NAME 

CBNDU 




3 f 

A S 

SUBROUTINE CBNDW BNDWrNPELrDELF ) 



4 f 

B* * 

5 * 

A £ 

{{{ BND«-FLOAT(NFEL»i(DELF 

OOID 


O 9 

/ PLOT 

EQU 

IDH 


0012 


8 MULT 

9 } 

10 EXTRN 

EQU 

12H 




INTLOD»AMDLOD»AMDSTRfAMDCMD 



11 i 

12 PUBLIC 

13 1 

14 CSEG 

15 ; 

CBNDU 



0000 El 


16 CBNDU! 

POP 

H 

{SAVE RTN ADDR 
fNFEL t 

0001 CDOOOO 

E 

17 

CALL 

INTLOD 

0004 3E1D 


18 

MVI 

A » PLOT 


0006 CDOOOO 

E 

19 

CALL 

AMDCMD 

»FLOAT( NFEL) 

0009 42 


20 

MOV 

B>D 

OOOA 4B 


21 

MOV 

C»E 


OOOB CDOOOO 

E 

22 

CALL 

AMDLOD 

fDELF t 

OOOE 3E12 


23 

MVI 

A f MULT 

0010 CDOOOO 

E 

24 

CALL 

AMDCMD 

fDELF*FLOAT(NFEL) 

0013 Cl 


25 

POP 

B 

0014 CDOOOO 

E 

26 

« 

9 

AMDSTR 

fBNDU- " 

0017 E9 


27 

r RETURN 



28 





29 

END 




PUBLIC SYMBOLS 
CBNDU C 0000 

EXTERNAL SYMBOLS 

AMDCHD E 0000 AMDLOD E 0000 


USER SYMBOLS 
AHDCMD E 0000 
INTLOD E 0000 


AMDLOD E 0000 
MULT A 0012 


ASSEMBLY COMPLETE » NO ERRORS 


AMDSTR E 0000 INTLOD E 0000 

AMDSTR E 0000 CBNDW C 0000 PLOT 


A OOID 


ASH30 {FUCCELL.SRC DEBUG PAGELEN6TH( 75 ) PAGEWIDTH< 90) 


ISIS-II 8080/8085 MACRO ASSEMBLER! V3»0 CCELL PAGE 1 


LOC OBJ 


LINE 


SOURCE STATEMENT 



1 ; 
O 2 

SUBROUTINE CCELL( CELL ! D IFF ! SUM ! ALT ) 


/ 9 

3 

4 ! 

NAME 

CCELL 

OOFO 

5 f 

6 PORT 

EQU 

OOFOH 

0004 

7 TAN 

EQU 

04H 

0011 

8 SUBT 

EQU 

IIH 

0012 

9 MULT 
10 ! 

EQU 

12H 


11 

EXTRN 

AMDLOD 


12 

EXTRN 

AMDSTR 


13 

14 ; 

EXTRN 

AMDCMD 


15 

PUBLIC 

CCELL 


16 




17 

CSEG 





18 ! 




0000 El 


19 CCELL { 

POP 

H 

!SAVE return ADDRESS 

0001 CDOOOO 

E 

20 

CALL 

AMDLOD 

JSUM t 

0004 3E04 


21 

MVI 

A! TAN 


0006 CDOOOO 

E 

22 

CALL 

AMDCMD 

{TANGENT 

0009 Cl 


23 

POP 

B 


OOOA CDOOOO 

E 

24 

CALL 

AMDLOD 

{DIFF t 

OOOD 3E04 


25 

MVI 

A! TAN 


OOOF CDOOOO 

E 

26 

CALL 

AMDCMD 

{TANGENT 

0012 3E11 


27 

MVI 

A! SUBT 


0014 CDOOOO 

E 

28 

CALL 

AMDCMD 

* 

!“ 

0017 42 


29 

MOV 

B!D 


0018 48 


30 

MOV 



0019 CDOOOO 

E 

31 

CALL 

AMDLOD 

{ALT t 

OOlC 3E12 


32 

MVI 

A! MULT 


OOIE CDOOOO 

E 

33 

CALL 

AMDCMD 

{X 

0021 Cl 


34 

POP 

B 


0022 CDOOOO 

E 

35 

CALL 

AMDSTR 

{SAVE IT IN CELL 

0025 £9 


36 

PCHL 


{RETURN 



37 

END 




PUBLIC SYMBOLS 
CCELL C 0000 

EXTERNAL SYMBOLS 
AHDCMD E 0000 AMDLOD E 


0000 


USER SYMBOLS 
AHDCMD E 0000 
PORT ft OOFO 


AMDLOD E 0000 
SUBT A 0011 


ASSEMBLY COMPLETE! NO ERRORS 


AMDSTR E 0000 

AMDSTR E 0000 CCELL C 0000 MULT A 0012 
TAN A 0004 


178 


ASH80 {F1?CELCNT»SRC DEBUG 


ISIS-II 8080/8085 MACRO ASSEHBLERr V3,0 


CELCNT PAGE 1 


LOC OBJ 


SOURCE STATEMENT 
NAME CELCNT 


0000 

0001 

0004 

0005 

0006 

0009 
OOOB 
OOOE 

0010 

0013 

0014 
0017 

0019 
OOlC 
001 D 

0020 
0022 
0025 
0028 
002B 
002D 
0030 
0032 

0035 

0036 
0039 


El 

CDJOOO 

42 

4B 

CDOOOO 

3E04 

CDOOOO 

3E12 

CDOOOO 

Cl 

CDOOOO 

3E13 

CDOOOO 

Cl 

CDOOOO 

3E13 

CDOOOO 

113A00 

CDOOOO 

3E10 

CDOOOO 

3E1F 

CDOOOO 

Cl 

CDOOOO 

E9 


4 i SUBROUTINE CELCNT(ICNT»UEL»TCrALT»THET8) 

5 j t:: ICNT»IFIX(<ALT*TAN(THET8))/<VEUTC>+*5) 

7 PORT EQU OOFOK 

8 AD EQU lOH 

9 MULT EQU 12H 


003A 00 
003B 00 
003C 80 
003D 00 



10 DIV 

EQU 

13H 



11 t<;jn 

EQU 

04H 



1,2 FIX 
13 

EQU 

IFH 



14 

EXTRN 

AHDLOD 



15 

EXTRN 

AMDSTR 



16 

EXTRN 

AMDCMD 



17 

EXTRN 

GIVE 



18 

EXTRN 

INTSTR 



19 t 




20 

PUBLIC 

CELCNT 



21 J 




22 

CSEG 




23 f 

24 CELCNT { 

POP 

H 

{SAVE RETURN ADDRESS 
{ALT t 

E 

25 

CALL 

AMDLOD 


26 

MOV 

BfD 



27 

MOV 

C»E 


E 

28 

CALL 

AMDLOD 

{THET3 t 


29 

HVI 

AfTAN 


E 

30 

CALL 

AMDCMD 

{TAN<THET8) 


31 

MVI 

A » MULT 

E 

32 

CALL 

AMDCMD 

{X 


33 

POP 

B 


E 

34 

CALL 

AMDLOD 

{TC t 


35 

MVI 

ArDIV 

E 

36 

CALL 

AMDCMD 

{/ 


37 

POP 

B 


E 

38 

CALL 

AMDLOD 

{VEL t 

39 

MVI 

AfDIV 


E 

40 

CALL 

AMDCMD 

{/ 

C 

41 

LXI 

DfHALF 


E 

42 

CALL 

G,IVE 

{.5 t 


43 

MVI 

AfAD 


E 

44 

CALL 

AMDCMD 

{ + 


45 

MVI 

ArFIX 


E 

i? 

CALL 

POP 

CALL 

AMDCMD 

B 

{CONVERT TG INTEGER 

E 

48 

INTSTR 

{SAVE RESULT IN ICNT 


49 

PCHL 


{RETURN 


50 i 

51 half; 

DB 

00H^00H»8OHr00H 



I8IS-II 8080/8085 MACRO ASSEMBLER » V3,0 CELCNT "^hGE 2 

LOG OBJ LINE SOURCE STATEMENT 

52 END 


PUBLIC SYMBOLS 
CELCNT C 0000 


EXTERNAL SYMBOLS 
AMDCMD £ 0000 AMBLOD 

E 0000 

AMDSTR E 0000 

GIUE 

E 0000 

INTSTR E 0000 



USER SYMBOLS 

“ fix TSoif 
GIVE E 0000 HAIF 

E 0000 

AMBLOD E 0000 

AMDSTR E 0000 

CELCNT C 0000 

DIO 

A 0013 

C 003A 

INTSTR E 0000 

MULT 

A 0012 

PORT A OOFO 

TAN 

A 0004 

ASSEMBLY COMPLETE f NO 

ERRORS 
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ASM80 IFltCINDX.SRC DEBUG PAGELEfiGTH< 77 ) PAGEUIDTHi 90 ) 


ISIS-II 8080/8035 MACRO ASSEMBLER > V3*0 


CINBX PAGE 1 


LOG OBJ 


LINE 


0010 
0013 
00 IF 
006C 


1 

2 1 

3 1 

4 { 

5 J 

6 AD 

7 DIV 

8 FIX 

9 I AD 
10 } 

11 EXTRN 

12 } 

13 PUBLIC 

14 i 

15 CSEG 

16 f 


SOURCE STATEMENT 
NAME CINDX 

SUBROUTINE CINDXaX» I1»TW0»HALF^D ) 


♦ * ♦ 
♦ f 


EOU 

EOU 

EQU 

EOU 


ix~iFixar,!+o,5)/rco)fii 

H 


10 

13 

IF 

6C 


AMDLOEI y I NTLOD y I N ISTR y AMDCMD 
CINDX 


0000 El 


17 CINDX! 

POP 

H 

5 SAVE RTN ADDR 

0001 CDOOOO 

E 

18 

CALL 

AMDLOD 

HIALF t' 

0004 42 


19 

MOV 

BfD 

OOOS 4B 


20 

MOV 

C»E 


0006 CDOOOO 

E 

21 

CALL 

AMDLOD 

yD t 

0009 3E10 


92 

MVI 

Ay AD 

OOOB CDOOOO 

E 

23 

CALL 

AMDCMD 

yDIOtS 

OOOE Cl 


24 

POP 

B 

OOOF CDOOOO 

E 

25 

CALL 

AMDLOD 

rrco t 

0012 3E13 


26 

MVI 

AyDIV 

0014 CDOOOO 

E 

27 

CALL 

Awnpwn 

m i4.*ui ii> 

y<DI.5>/2» 

0017 3E1F 


28 

MVI 

Ay FIX 

0019 CDOOOO 

E 

29 

CALL 

AMDCMD 

5IFIXaii+.5)/2 

OOlC Cl 


30 

POP 

B 

OOID CDOOOO 

E 

31 

CALL 

INTLOD 

yli 1 

0020 3E6C 


32 

MVI 

AylAD 

0022 CDOOOO 

E 

33 

CALL 

AMDCMD 

yIFIX( M. >m 

0025 Cl 


34 

POP 

B 

0026 CDOOOO 

E 

35 

CALL 

INTSTR 

yIX<--IFIXI 

0029 E9 


36 

37 i 
33 

PCHL 

END 


y RETURN 


PUBLIC SYMBOLS 
CINDX C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 


USER SYMBOLS 
AD A 0010 
FIX A OOIF 


AMDCMD E 0000 
I AD A 006C 


INTLOD E 0000 


AMDLOD E 0000 
INTLOD E 0000 


ASSEMBLY COMPLETE y NO ERRORS 


INTSTR E 0000 


CINDX C 0000 DIO 
INTSTR E 0000 


A 001 


OF ^ 
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ASM80 {F1{CLNPT»SRC DEBUG PAGELENGTH( 75 > PAGEWIDTH< 90 ) 

ISIS-n 8080/8085 HACRO ASSEMBLER^ V3*0 CLNPT PAGE 1 

LOG OBJ LINE SOURCE STATEMENT 


1 NAME CLNPT 

!? : 




3 ; 

1 m 

SUBROUTINE CLNPT( I BPT » LT f PC » PN » XT » Y I f ANGTD f ALT ) 



T f 

5 i 

6 i 

7 i 

8 i 

9 ASIN 

tit 

IBPT = LT"IFIX(PC*<TAN(ANGTD)-PN)) 

0005 


EOU 

OSH 


0004 


10 TAN 

11 PUSHT 

EQU 

04H 


001/ 


EQU 

17H 


0012 


12 FMUL 

EQU 

12H 


0010 


13 FADD 

EQU 

lOH 


0011 


14 FSUB 

EQU 

IIH 


OOIF 


15 IFIX 

EQU 

IFH 


006D 


16 ISUB 

EQU 

6DH 


0074 


17 ICHS 

18 ; 

EQU 

74H 




19 

EXTRN 

AMDLOD r AMDSTR f AMDCMD » INTLOD p INTSTR » GI VE » ( 



20 i 






21 

PUBLIC 

CLNPT 




dUZ f 

23 

CSEG 





24 f 




0000 El 


25 CLNPT! 

POP 

H 

(SAVE RETURN ADDRESS 

0001 C5 


26 

PUSH 

B, 

(SAVE ADDRESS OF ANGTD 
fANGTD t 

0002 CDOOOO 

E 

27 

CALL 

AMDLOD 

0005 3E05 


23 

MVI 

A>ASIN 

fASIN( ANGTD ){—{—{ — 

0007 CDOOOO 

E 

29 

CALI 

AMDCMD 

ioo^ SSoooo 

E 

30 

31 

MVI 

CALL 

A » PUSHT 
AMDCMD 

fASIN(ANGTD){ASIN(ANGTD>^-!‘-'- 

OOOF Cl 


32 

POP 

B 


0010 CDOOOO 

E 

33 

CALL 

AMDSTR 

(SAVE IN ANGTD 

0013 3E04 
0015 CDOOOO 

E 

34 

35 

MVI 

CALL 

AfTAN 

AMDCMD 

(TAN< ANGTD ) t— 

0018 3E17 


36 

MVI 

A f PUSHT 

OOIA CDOOOO 

E 

37 

CALL 

AMDCMD 


OOID CDOOOO 

E 

38 

CALL 

AMDCMD 

( TAN( ANGTD ) { TAN( ANGTD ) t TAN< ANGTD 

0020 D5 


39 

PUSH 

D 

0021 110000 

D 

40 

LXI 

Dr HOLD 


0024 CDOOOO 

E 

41 

CALL 

GET 

(SAVE TAN( ANGTD) IN HOLD 

0027 3E12 


42 

MVI 

A » FMUL 


0029 CDOOOO 

E 

43 

CALL 

AMDCMD 

(TAN< ANGTD )*i»2(— — 

002C Cl 


44 

POP 

B 


002D CDOOOO 

E 


CALL 

AMDLOD 

(ALT t 

0030 3E17 


46 

MVI 

AfPUSHT 

0032 CDOOOO 

E 

47 

CALL 

AMDCMD 


0035 3E12 


48 

MVI 

A » FMUL 


0037 CDOOOO 

E 

49 

CALL 

AMDCMD 

( ALT442 1 TAN( ANGTD )**2 t—t— 

Q03A Cl 
003B CDOOOO 

E 

50 

51 

POP 

CALL 

AMDLOD 

(YI t 

003E 3E17 


52 

MVI 

AfPUSHT 


0040 CDOOOO 

E 

53 

CALL 

AMDCMD 


0043 3E12 


54 

MVI 

A f FMUL 

(YI*|2!ALT!ii*2{TAN< ANGTD )**2: — 

0045 CDOOOO 

E 

55 

CALL 

AMDCMD 

0048 3E10 


56 

MVI 

A f FADD 


004A CDOOOO 

E 

57 

CALL 

AMDCMD 

(YI*»2+ALT**2:TAN< ANGTD 

004D 3E12 
004F CDOOOO 

E 

58 

59 

MVI 

CALL 

AfFMML 

AMDCMD 

« YI**2+ALT*)li2 >*TAN< ANGTD >**2{ — 

0052 Cl 


60 

POP 

B 


0053 CDOOOO 

E 

61 

CALL 

AMDSTR 

(SAVE RESULT IN XT 

0056 110000 

D 

62 

LXI 

DfHOLD 

(TAN( ANGTD) t 

0059 CDOOOO 

E 

63 

CALL 

GIVE 
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1 


ISIS-II 8080/8085 MACRO ASSEMBLER » V3 


LOC OBJ 


LINE 

SOURCE 

OOSC Cl 


64 

POP 

OOSD CDOOOO 

E 

65 

CALI 

mi m, 

E 

i 

MUI 

CALL 

0065 Cl 


68 

POP 

8m s??r 

E 

n 

gr 

006B CDOOOO 

E 

71 

CALL 

006E 3E1F 


72 

MVI 

0070 CDOOOO 

E 

73 

CALL 

0073 Cl 


74 

POP 

0074 CDOOOO 

E 

75 

CALL 

0077 3E6D 


76 

MVI 

0079 CDOOOO 

E 

77 

CALL 

007C 3E74 


78 

MVI 

007E CDOOOO 

E 

79 

CALL 

0081 Cl 


80 

POP 

0082 CDOOOO 

E 

81 

CALL 

0035 E9 


82 

PCHL 



83 f 




84 

DSE6 



85 f 


0000 


86 H0LD5 

DS 



87 

END 


0 CLNPT PAGE 2 


STATEMENT 


B 

fPN t 

^hScIid 

fTAN<ANGTD)-PN{-{-l — 

B 

>PC t 

AMDCMD 

A»IFIX 

i m< TAN( ANGTD )-PN > J *. 1 

AMDCMD 

INTLOD 
A « ISUB 

}IFIX<PC4<TAN( ANGTD )“PN ))? — {—{ 

JLT t 

AMDCMD 

AtICHS 

f IFI X( PC*< TAN< ANGTD )-PN ) )-LT { — { 

AMDCMD 

INTSTR 

}LT-IFIX( PC*( TAN( ANGTD >-PN ) )t— 1 

fSAVE RESULT IN IBPT 
f RETURN 


4 


PUBLIC SYMBOLS 
CLNPT C 0000 


AHDCMD 

INTLOD 


USER SYMBOLS 
AMDCMD E ■ 
FADD A 
HOLD D 
ISUB A 


0000 

0000 

AMDt.OD E 0000 
INTSTR E 0000 

AMDSTR E 0000 

GET 

E 0000 

GIVE 

E 0000 

lOLS 

0000 

AMDLOD E 0000 

AMDSTR E 0000 

ASIN 

A 0005 

CLNPT 

C 0000 

0010 

FMUL A 0012 

FSUB 

A 0011 

GET 

E 0000 

GIVE 

E 0000 

0000 ICHS A 007'f 

006D PUSHT A 0017 

COMPLETE > NO ERRORS 

IF IX 
TAN 

A OOIF 
A 0004 

INTLOD 

E 0000 

INTSTR 

E 0000 
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ASH80 {FUCNFILTtSRC DEBUG PAGELENGTH< 75 ) PAGEWIDTW 90 ) 


ISiS-n 8080/8085 HACRO ASSEMBLER» U3*0 


CKFILT PAGE 1 


LOG OBJ 


LINE 


SOURCE STATEHENT 
NAME CNFILT 


0010 

0012 

W 

0001 

0002 

OOIF 

0017 

0003 


I 

7 

8 

10 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 f 


tt 


&U4W®?? XIIXI )/< ALT*ALTFYI)HYI ) > ) 
FDOP=XT*SIN( ANGLD ) 

BNDU-( CELL4XT/ALT )*COS( ANGLD )»)K3 
NFELaIFIX< BNDW/DEL+0*5) 


! SUBROUTINE CNFILT< NFEL» DEL »BNDU»CELLf FDOP» ANGLD »YIr XI »XT»S 
LMDAifVEL>ALT) 

} 

* 

» 

* 
r 
» 
f 

t 

• 

FADD 
MULT 

0 

SORT 
SIN 
FIX 
PUSHT 
COS 

ft 

1 


EQU 

lOH 

EQU 

12H 

EQU 

13H 

EQU 

07H 

EQU 

OIK 

EQU 

02H 

EQU 

IFH 

EQU 

17H 

EQU 

03H 


EXTRN AMDLOD » AMDCHD » I NTSTR t AMDSTR » GET f GIVE 


23 PUBLIC CNFILT 

24 i 

25 CSEG 

26 


0000 El 


27 CNFILT! 

POP 

0001 220000 

D 

28 

SHLD 

0004 62 


29 

10V 

0005 6B 


30 

10V 

0006 CDOOOO 

E 

31 

:all 

0009 3E17 


32 

1VI 

OOOB CDOOOO 

E 

33 

:all 

OOOE 3E10 


34 

1VI 

0010 CDOOOO 

E 

35 

:all 

0013 Cl 


36 

»0P 

0014 CDOOOO 

E 

37 

:all 


3E13 
CDOOOO 
3E17 
CDOOOO 
Cl 

CDOOOO 
110200 
CDOO/OO 
Cl 

CDOOOO 
3E17 
CDOOOO 
3E12 
0036 CDOOOO 
0039 Cl 
003A CDOOOO 
003D 3E17 
003F CDOOOO 
0042 3E12 
0044 CDOOOO 

0047 44 

0048 4D 

0049 CDOOOO 
004C 3E17 
004E CDOOOO 


0017 

0019 

OOlC 

OOIE 

0021 

0022 

0025 

0028 

002B 

002C 

002F 

0031 

0034 


E 

D 

E 

E 

E 

E 

E 

E 

E 

E 

E 


38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 


MVI 

CALL 

MVI 

CALL 

POP 

CALL 

LXI 

CALL 

POP 

CALL 

MVI 

CALL 

MVI 

CALL 

POP 

CALL 

MVI 

CALL 

MVI 

CALL 

MOV 

MOV 

CALL 

MVI 

CALL 


H 

ISAVE 

HtD 

LfE 

AMDLOD 
A f PUSHT 
AMDCMD 
A » FADD 
AMDCMD 

b?g 

AMDCMD 
A» PUSHT 
AMDCMD 


SAVE RTN ADDR 
AT INTERNAL BUFF 


PUT ALT 
VEL t 

VEL t 


2*<tVEL 


SLMDA t 


ADDR IN RP< HL ) 


2.*VEL/SLMDA 
XT{XT{-t“ 
SAVE XT 


AMDSTR _ 

D.ISAVE+2. 

GET 
B 

AMDLOD 
A » PUSHT 
AMDCMD 
A f MULT 

AMDCMD }XI*XI 
B 

AMDLOD 
A f PUSHT 
AMDCMD fYIUIlXIIXi:-' 
A f MULT 

AMDCMD »YIIYi;Xl*Xn-l 

B»H 

C»L 

AMDLOD rALT t 
A » PUSHT 

AMDCMD ?ALT{ALTt-{“ 


SAVE CY OF XT 
XI 1 

xnxi:-{- 


JYI t 
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«si 


I8I8~n 8080/8085 HACRO A8SEHBLER» V3.0 


CNFILT PAGE 2 


LOC OBJ 


LINE 

0051 3E12 
0053 CDOOOO 

E 

43 

44 

m jgiSoo 

E 

45 

44 

OOSB 3E13 


47 

® pr» 

E 

48 

49 

0042 CDOOOO 

E 

70 

0045 3^07 


71 

0047 CDOOOO 

E 

72 

004A 3E17 


73 

004C CDOOOO 

E 

74 

004F Cl 


75 

0070 CDOOOO 

E 

74 

0073 3E17 
0075 CDOOOO 

E 

77 

78 

0078 110400 

D 

79 

007B CDOOOO 

E 

80 

007E 3E02 


81 

0080 CDOOOO 

E 

82 

0083 110200 

D 

83 

0084 CDOOOO 

E 

84 

0089 3E12 


85 

008B CDOOOO 

E 

84 

008E Cl 


87 

008F CDOOOO 

E 

88 

m 

E 


0098 3E03 


91 

009A CDOOOO 

£ 

92 

009D 3E17 


93 

009F CDOOOO 

E 

94 

00A2 3E17 


95 

00A4 CDOOOO 

E 

94 

00A7 3E12 


97 

00A9 CDOOOO 

E 

98 

OOAC 3E12 


99 

OOAE CDOOOO 

E 

100 

OOBl 110200 

D 

101 

00B4 CDOOOO 

E 

102 

00B7 3E,12 


103 

00B9 CMOOO 

E 

104 

OOBC 44 


105 

OOBD 411 


104 

OOBE CDOOOO 

E 

107 

QOCl |e13 


108 

00C3 CDOOOO 

E 

109 

00C4 Cl 


no 

00C7 CDOOOO 

E 

111 

OOCA 3E12 


112 

OOCC CDOOOO 

E 

113 

OOCF 3E17 


114 

OODl CDOOOO 

E 

115 

00D4 Cl 


114 

00D5 CDOOOO 

E 

117 

00D8 Cl 


118 

00D9 CDOOOO 

E 

119 

OODC 3E13 


120 

OODE CDOOOO 

E 

121 

OOEl 11F900 

C 

122 

OOE4 CDOOOO 

E 

123 

00E7 3E10 


124 

00E9 CDOOOO 

E 

125 

OOEC 3E1F 


124 


SOURCE STATEMENT 


glifL « 


MVI 
CALL 

c/!ll 

MOI 

CALL 

Myi 

CALL 

MVI 

CALL 

MVI 

CALL 

PUP 

CALL 

MVI 

CALL 

LXI 

CALL 

MVI 

CALL 

LXI 

CALL 


CAL 
POP 
CALL 


C^ 
MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
MVI 
CALL 
LXI 
CALL 
MVI 
CALL 
MOV 
MOV 
CALL 
MVI 
CALL 
POP 
CALL 
MVI 
CALL 
MVI 
CALL 
POP 
CALL 
POP 
CALL 
MVI 
CALL 
LXI 
CALL 
MVI 
CALL 
MVI 


A » MULT 
AMDCHD 

AfFDIV 

M? 

AMDCHD 

A^ATAN 

AliDCMD 

B 

AMBSTR 

AtPUSHT 

AMDCHD 

DfISAVE'j 

GET 

A*SIN 

AMDCHD 

DfISAVEi 

GIVE 

mi 

AMDSTR 

DJISAVE^ 

AfCOS 

AMDCHD 

AfPUSHT 

AMDCHD 

AfPUSHT 

AMDCHD 

AiMULT 

AMDCHD 

A » MULT 

AMDCHD 

ruISAVEi 

GIVE 

A » MULT 

AMDCHD 

Elf 

AHDLOD 

A 1 .FDIV 

AMDCHD 

B 

AHDLOD 

A f MULT 

AMDCHD 

A»PUSHT 

AMDCHD 

B 

AMDSTR 

B 

AHDLOD 

AfFDIV 

AMDCHD 

DfHALF 

GIVE 

A»FADD 

AMDCHD 

A»FIX 


} ALT* ALT 

MALT**2H<YI**2)I 

HXI**2)/(ALT**2FYI**2) 

ISQRT( " ) 

»‘ATAN(SQRT<.»m)) 

fATAN<*»){ATAN< ♦*> 

fANGLD= '■ 

{ANGLDtANGLD 

tsAVE CY OF ANGLD 

fSIN(ANGLD) 

2 

»XTtSIN(A** ) 
»XT*SIN(A.i) 

JFDOP « " 

JANCLD t 
?COS(A.,) 

JCOS(A*» >5C0S(A.. ):“{“ 
fCOSAtCOSA{COSA{~ 

»cosa*cosa:cosa 

fC0SA**3 

"2 

fXTt 

fXT*C0SA**3 

{ALT{XT*C0SA**3 
{XT*C0SA**3/ALT 
fCELL t 

fCELL*XT*COSA 

fBNDWtBNDWJ-5" 
fSAVE VALUE OF BNDU 
{DEL t 
{BNDU/DEL 
rO.S t 

f(BNDU/DEL+0»5) 
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rsis~n 8080/8085 MACRO 


LOC OBJ 
Ogpi CDOOOO 

ki l» 

OOFS E9 


OOFB 80 
OOFC 00 


0000 


LINE 

127 

128 


131 

132 

133 


134 

135 

136 

137 

138 

139 


PUBLIC SYMBOLS 
CNFILT C 0000 

EXTERNAL SYMBOLS 
AHDCHp E 0000 AHDLOD 
INTSTR E 0000 


USER SYMBOLS 

r ” I M 

GIVE E 0000 
PUSHT A 0017 


HALF 

SIN 


ASSEMBLY COMPLETE^ NO 


ASSEMBLER. V3»0 CNFILT PACE 3 

SOURCE STATEMENT 



Eft!) 

PCHL 

DB 

AMDCMD 

IsAvE 

IIFIX(BNDU«m) 


INFEL« ” 
>GET RTN ADDR 
1 RETURN 

HALF! 

00H.00H.80H.00H 

DSEG 

k 

9 

* 



ISAVE5 

hs 

END 

10 



E OOOO 

AMDSTR E 0000 

GET 

E 0000 

GIVE 

E 0000 

E 0000 
A OOlO 
C 00F9 
A 0002 

^ i 

INTSTR E 0000 
SORT A 0001 

ATAN 

FIX 

ISAVE 

A 0007 
A 001 F 
D 0000 

MULT 

C 0000 
E 0000 
A 0012 

ERRORS 







ASH80 IF1ICRG4.SRC DEBUG PACELENGTH( 75 ) PAGEyiDTH(90) 


ISI8-n 8080/8085 MACRO ASSEMBLER^ V3»0 CRG4 PAGE 1 


LOG OBJ 


LINE 


SOURCE STATEMENT 


0000 

0001 

0004 

0005 

m 

OOOB 

OOOE 

0010 

0013 

0015 

0018 

0 c 

OOIE 

0021 

0022 

0025 


El 

CDOOOO 

42 

CDOOOO 

3E13 

CDOOOO 

3E08 

CDOOOO 

Cl 

CDOOOO 

3E12 

CDOOOO 

Cl 

CDOOOO 

E9 


E 

E 

E 

E 

E 

E 

E 


NAME CRG4 

SUBROUTINE CRG4< RG4»FRTY» ALT»ANGTL ) 

RG4»40.*AL0G10(ALT/C0S(ANGTL)>» WHEfiE FRTY»40, 


0003 

7 £0S 

EQU 

03H 

0013 

3 FDIV 

EQU 

13H 

0008 

9 ALOG 

EQU 

OSH 

0012 

JULT 

EQU 

12H 


EXTRN 

13 } 

14 PUBLIC 

15 i 

U CSEG 

17 } 

18 CR64{ 

19 

20 
21 

5,1 

24 

25 

26 

27 

28 
Ai ' 

30 

31 

32 

33 

34 

35 

36 

37 


AHDLOB»AMDCMD»AMDSTR 

GRG4 


POP 

CALL 

MOV 

MOV 

m- 

CALL 

MVI 

» 

CALL 

CALL 

POP. 

CALL 

PCHL 

* 

END 


I) 

AMDLOD 

B>D 

CfE 

AfCOS 

AMDCMD 

A»FDIV 

AHBCKD 

AfALOG 

AMBCMD 

hm 

AMDCMD 

AMDSTR 


S^VE^RTN ADDR 


ANGTL 1 

COS(ANGTL){ALT 
ALT/C03< ANGTL) 

AL0G10< ALT/C0S(m)) 

40» t 

40**AL0G10<ALT/C0S( )) 

RG4» « 

RETURN 


PUBLIC SYMBOLS 
CRG4 C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 


USER SYMBOLS 
ALOG A 0008 
CRG4 C 0000 


AMDCMD E 0000 
FDIV A 0013 


ASSEMBLY COMPLETE r NO ERRORS 


AMDSTR E 0000 

AMDLOD E 0000 AMDSTR E 0000 COS A 0003 
MULT A 0012 
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ASM80 {FnCZTINT*SRC DEBUG 


ISIS-II 8080/8085 HACRO A8SEHBLER» V3»0 


CZTINT PAGE 1 


LOG OBJ 


LINE 


SOURCE STATEMENT 
NAME CZTINT 

FUNCTION} CZT~POARD INTERRUPT H->NDLER 



5 

PUBLIC 

CZTINT 


6 

•7 J 

EXTRN 

lENDI 


/ f 
8 

9 { 

10 CZTINT} 

CSEG 


0000 F5 

PUSH 


PS« 

0001 C5 

11 

PUSfi 


6 

0002 DS 

12 

PUSH 


D 

0003 ES 

13 

PUSH 


H 

0004 CDOOOO E 

14 

CALL 

lENDI 

0007 El 

15 

POP 


H 

0008 D1 

16 

POP 


D 

0009 Cl 

17 

POP 


B 

OOOA 3E20 

18 

MVI 


A.20H 

OOOC 03D8 

19 

OUT 


0D8H 

i)OOE 3EFF 

20 

HiVI 


A.OFFH 

0010 D3D9 

21 

OUT 


0D9H 


22 

23 



PSU 

0014 C9 

24 

RET 




25 

END 




fSAUE 

{REGISTERS 

JIN THE CURRENT 

{STATE OF THE MACHINE 

{RESTORE 

{REGISTERS 

{TO THEIR ORIG STATE 
{RESTORE 

{MACHINE TO OPER LEVEL 
{RESET INTERRUPT MASK 
{FOR NO INTERRUPTS 

{RETURN 


PUBLIC SYMBOLS 
CZTINT C 0000 

EXTERNAL SYMBOLS 
lENDI E 0000 

USER SYMBOLS 

CZTINT C 0000 lENDI E 0000 
ASSEMBLY COMPLETE. NO ERRORS 
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ASM80 {FU0AREA»3RC DEBUG PA6ELENGTH( 79 ) 


ISIS-II 808»/a085 MACRO ASSEMBLER! V3»0 


DAREA PAGE 


1 


LOC OBJ 


LINE 


0012 

0008 

0011 


7 MULT 

8 LOG 

9 FSUB 
10 ( 

11 EXTRN 

12 ; 


SOURCE STATEMENT 
NAME DAREA 

SUBROUTINE DAREA< ALrTENrTRMMRM2!TRM3 ) 

tt ALs 1 0 . #ALOG 1 0< TRM 1 $< TRM2-TRM3 ) ) 

EQU 12H 

EQU OSH 

EQU IIH 

AMDL0D!AMDCMD»AMDSTR 




13 PUBLIC 1 

14 ( 

DAREA 





15 CSEG 

16 i 




0000 El 


17 DAREA t 1 

POP. 


JHOLD RTN ADDR 
JTRM2 t 

0001 CDOOOO 

E 

18 1 

CALL 

AMDLOD 

0004 42 


19 

MOV 

B!D 

0005 4B 


20 

MOV 

CiE 


0006 CDOOOO 

E 

21 

CALL 

AMDLOD 

!TRM3 t 

0009 3E11 


22 

MVI 

A!FSUB 

OOOB CDOOOO 

E 

23 

CALL 

AMDCMD 

fTRM2-TRM3 

OOOE Cl 


24 

POP 

B 

OOOF CDOOOO 

E 

25 

CALL 

AMDLOD 

JTRMl t 

0012 3E12 


26 i 

MVI 

A! MULT 

0014 CDOOOO 

E 

27 1 

CALL 

AMDCMD 

!TRMl*nRM2~TRH3) 

0017 3E08 


28 1 

MVI 

A! LOG 

0019 CDOOOO 

E 

29 1 

CALL 

AMDCMD 

JALOGIOC “ ) 

OOlC Cl 


30 

POP 

B 


OOID CDOOOO 

E 

31 

CALL 

AMDLOD 

JIO* t 

0020 3E12 


32 

MVI 

A!MULT 

0022 CDOOOO 

E 

33 

CALL 

AMDCMD 

!l0«»AL0G10< .o ) 

0025 Cl 


34 

POP 

B 

0026 CDOOOO 

E 

35 

CALL 

AMDSTR 

fAL= '■ 

0029 E9 


36 

PCHL 

fRETURN 



37 

A 

f 




38 

END 




PUBLIC SYMBOLS 
DAREA C 0000 

EXTERNAL SYMBOLS 

AMOCMD E 0000 AMDLOD E OOOO 

USER SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 
MULT A 0012 

ASSEMBLY COMPLETE! NO ERRORS 


AMDSTR E 0000 

AMDSTR E 0000 DAREA C 0000 FSUB A 0011 




LOG A 0 
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T 


FOR TRAN COMPILER 


ISIS-n FORlRAfHtO V2.0 COMPILATION OF PROGRAM UnIT HECODA 
OBJECT HOPUL.E PLACEB IN trUtiECQDA.OBJ 

COMPILER INOOKEO BY! PORTOO !f l {PECOltA.SRC DEBUG F'AGELENGTH-. 77) PAGEU'H‘IH( 90 ) 


n 

3 


6 

7 

a 

9 


in 


2.: 

20 

29 

■JO 

31 


33 

34 

35 
U 

37 

38 


40 


I' » f » 
Will 


SUBROUTINE DECOPAI IQOrNERZ»Tl »PARM ) 
PECODES NERTiAG FRAME USING AMD SUBROU FINES 


C 


HI MENS I ON PARM<5)»II(S) 
INTEGER*! lOLR 0 Nl'KZI 60 ) 


C 

C S3 

c 

10 


CQMM0N7GG/a( 6 ) » t:C( 7 » 2 ) * Ch'T( 9 ) 

becopf: mlf up to 9999 , feet 


;i£ 3;3 


c 

c 

c 


20 

25 


IFdOVn )*NE\0) GO TO 30 
BO 20 K=l»4 
II(K)«NERZ( 27FK) 

CONTINUE 

C4iL ALTFP( PARM( 1 ) » GBT( 8 ) r II < 2 ) » II ( 3 ) d' I( 4 ) » II <1 ) ) 


I'CSS.^ iinSw 


ICCOPL DRIFT »r<OLL»PITCM UP TO 99,9 BEG 


10 

30 

DO 50 J*2y4 

11 


IFdOCH J),NE,0) GO TO SO 

12 


11(4 )al 

13 

35 

DO 40 K=iy3 

14 


Ls39TKF4!|i( J~2) 

15 


n(K)aN£RZ(L) 

16 

40 

CONTINUE 

17 

IF(NERZa.Fl),EQ,14)lI(4) - 1 

13 


CALL DRPFP( PARM( J ).CBT( 7 )ylK 4 

19 

50 

C 

c 

60 

CONTINUE 


decode vel up to 

20 

IF(I0U(S),NE,0) GO TO 30 

21 


BO 70 Ksly3 

r>o 


II(K)~NERZ(S1+K) 


70 

CONTINUE 

24 

r 

CALL VEL FP( f ’ARM! 5 ) y CST( 9 ) y II ( 2 


It 

c 

80 

DECODE TIME Ul' TO 

2S 

BO 8S K=2y4 


65 


niK)sNERZ(K) 

CONTINUE 

CALL TSECS< IK ! ) k IK 3 ) r IIU ) y IK 2 ) ) 
IF( IK 1), GT, 599)11( 1 )~599 
II(3)=NERZ( 5) 

II(4)sNERZ<6) 

CALL MINHR(n(2)yIK'3)»IK4)) 
IFaK2),GT,59)TK2)sS9 
II(4)sNERZ(7) 
n(5>~NERZ( 8) 

CALL MINHR(II(3)yn(4)?n(5)) 

IF(n(3).GT,23'lK3)<!3 

CALL T I HEFP( T 1 » 1 1 ( 1 ) y II ( 2 ) y I K 3 ) ) 


RETURN 

END 


MODULE INFORMATION! 


CODE AREA SIZE 
VARIAKE AREA SIZE 
MAXIMUM STACK SIZE 
57 LINES READ 


0291H 

0013H 

OOOAH 


6S7D 

24D 

iOB 


0 PROGRAM ERROR! S ) IN PROGRAM UNIT B£ ClU'A 
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FORTRAN CQMPILF.R 


0 TOTAL PROGRAK ERROR(S) 
END OF FORTRAN COMPILATION 


ASH80 JFIIDRPFP.SRC DEBUG PAGELENGTW 7S ) PAGEWIDTH< 90) 


ISIS-n 8080/8035 HACRO ASSEHBLERf 03 »0 DRPFP PAGE 1 


LOC OBJ LINE SOURCE STATEHENT 




1 } 
P 

A t 

SUBROUTINE DRPFP( DRP»CRAD» ISGN» ITN» IKD f lUN 



NAME 

DRPFP 




4 f 

5 t 

L t 

EVALUATES DRIFTiROLL»OR PITCH IN RADIANS 



6 f 

7 i 

DRPaFLOAT( ( IUN+10*< ITNUOS'IHD ) >*ISGN >/CRAD 






WHERE CRAD«573* 



V 9 
10 ) 





0013 


11 

DIV 

EQU 

13H 

0012 


12 

MULT 

EQU 

12H 

006C 


13 

TAD 

EQU 

6CH 

006E 


14 

IMULT 

EQU 

6EH 

OOID 


15 

FLOAT 

EQU 

IDH 



16 ! 







17 

EXTRN 

INTLOD , AMDCMD » AMDSTR » AMDLOD 



18 

PUBLIC 

DRPFP 




19 { 







20 

CSE6 





21 ) 





0000 El 


22 DRPFP { 

POP 


fSAVE RETURN ADDR 

0001 CDOOOO 

E 

23 

CALL 

INTLOD 

JIHD t 

0004 014900 

C 

24 

LXI 

BrTEN 


0007 CDOOOO 

E 

25 

CALL 

INTLOD 

)10 t 

OOOA 3EAE 
OOOC CDOOOO 


26 

MV 

[ 

A f IMULT 


E 

27 

CA 

-L 

AMDCMD 

)X 

OOOF Cl 


28 

PO 

■> 

B 

)ITN 

0010 CDOOOO 

E 

29 

CA 

X 

INTLOD 

0013 3EAC 


30 

MV 

1 

ArlAD 


0015 CDOOOO 

E 

31 

CAI 

X 

AMDCMD 

fT 

0018 014900 

C 

32 

LXI 

B»TEN 

flO t 

OOIB CDOOOO 

E 

33 

CALL 

INTLOD 

OOIE 3EAE 


34 

MVI 

A» IMULT 


0020 CDOOOO 

E 

35 

CALL 

AMDCMD 

)X 

0023 *2 


36 

MOV 

B»D 


0024 4B 


37 

MOV 

C»E 

)IUN t 

0025 CDOOOO 
0028 3E6C 

£ 

38 

39 

CALL 

MVI 

INTLOD 

ArlAD 

002A CDOOOO 

E 

40 

CALL 

AMDCMD 

fF 

0020 Cl 


41 

POP 

B 

fISGN t 

002E CDOOOO 
0031 3EAE 

E 

42 

CALL 

INTLOD 


43 

MV 

I 

A» IMULT 


0033 CDOOOO 

E 

44 

CALL 

AMDCMD 

fX 

0036 3E1D 


45 

MVI 

A » FLOAT 

JFLOAT 

0038 CDOOC 

E 

46 

CALL 

AMDCMD 

0u3B Cl 


47 

POP 

B 


003C CDOOOO 

E 

48 


ItL 

AMDLOD 

JCRAD 

003F 3E13 


49 

f 

A»DIV 


0041 CDOOOO 
0044 Cl 

E 

50 

51 

CALL 

POP 

gMDCMD 

f/ 

0045 CDOOOO 

E 

52 

CALL 

AMDSTR 

‘'SAVE RESULT IN BRP 

0048 E9 


53 

PCHL 


JRETURN 

0049 OAOO 


54 TEN! 

DU 


10 



55 

END 



UBLIC SYMBOLS 
RPFP C 0000 







)(TERNAL SYMBOLS 
MDCMD E 0000 

AMDLOD E 0000 


AMDSTR E 0000 

INTLOD E 0000 


ISI8-II 8080/8085 HACRO ASSEH8LER» M3.0 


DRPFR PAGE 


2 


FLOAT A 001 D 
TEN C 0049 


AHDLOD E 0000 
lAD A 006C 


ASSEHBLT COMPLETE f NO ERRORS 


AHDSTR E 0000 
IMULT A 006E 


DIU A 0013 DRPFP 

INTLOD E 0000 MULT 




C 0000 
A 0012 
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IBIS-n 8080/8085 MACRO ASSEMBLER! V3.0 


DMERIF PAGE 


2 


LOG OBJ 


LINE 


SOURCE STATEMENT 


003F 

C31000 

C 

55 

if CP2J 
58 

JMP 

STPO 

mi 



m 

g 

0044 

C34800 

C 

59 

60 ! 

61 CPU 

JMP 

CP 141 

0047 

0048 

OC 

FE2B 


P 

§2BH 

004A 

CAIOOO 

C 

63 

JZ 

STPO 

004D 

C31200 

C 

64 

tlL 

JMP 

STP 

0050 

79 


MOV 

A!C 

0051 



67 


9 OH 

0053 

C 

60 

JZ 

CP2 

0056 

C31200 

C 


JMP 

STP 




* 

70 ! 

71 

END 



i ELSE REPLACE THE CHAR WITH '0' 


fADB 


2 I! 


THI 


REGISTER C TO SET 
THE UNARY FLAG 


^CONTINUE 

ICHECK DECIMAL FLAG 

! ™§EnAEiS'r{T 

{ELSE GO TO GET THE NEXT BYTE 


PUBLIC SYMBOLS 
ASCDU C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 

ASCDV C 0000 CO C 0050 CCO C 002A 

DC C 0018 

GC C 0005 STP C 0012 STPO C 0010 

ASSEMBLY COMPLETE! NO ERRORS 


CPO 


C 0039 CPI C 0047 CP2 
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f* 


C 004 




ASH80 {FUDVERIF*SRC DEBUG XREF 


ISIS-n 8080/8085 HAGRO ASSEMBLER! 03*0 


DVERIF PAGE I 


LOG OBJ 


LINE 

1 

o 


3 

4 I 

5 

/ » 

8 I 

9 i 
0 { 
1 i 
,2 i 
,3 ‘ 

.1 

16 

17 

18 


SPURGE STATEMENT 
NAME DVERIF 


19 I 


OOOO EB 


! 

21 ASCDV} 

XCHG 


0001 OA 


22 

LDAX 

B 

0002 OEOO 


23 

MVI 

C.OOH 

0004 47 


24 

MOV 

B.A 

0005 7E 


25 GC} 

MOV 

A.M 

0006 FE30 
0008 DA 1800 

C 

26 

27 

CPI 

JC 

030H 

DC 

OOOB FE3A 


28 

CPI 

03AH 

OOOD DASOOO 

C 

29 

JC 

CO 

0010 3620 


30 STPO} 


^.020H 

0012 23 


31 STP} 

INX 

0013 05 


32 

DCR 

B 

0014 C20500 

c 

33 

JNZ 

GC 

0017 C9 


it { 

RET 


0018 FE2E 


36 DC} 

CPI 

02EH 

OOIA CA2A00 

c 

37 

JZ 

CCO 

OOID FE2D 


38 

CPI 

02DH 

OOIF CA3900 

c 

39 

JZ 

CPO 

0022 FE2B 


40 

CPI 

02BH 

0024 CA3900 

c 

41 

JZ 

CPO 

0027 C31000 

c 

{ 

JMP 

STPO 

002A 79 


44 CCO} 

MOV 

A.C 

002B FEOO ^ 


45 

CPI 

OOH 

002D CA4700 

c 

46 


CPI 

0030 79 


47 

MOV 

A.C 

0031 FE02 


48 

CPI 

02H 

0033 CA4700 

c 

49 


CPI 

0036 C31000 

c 

50 

51 { 

52 CPO.‘ 

JMP 

STPO 

0039 79 


MOV 

A.C 

003A FEOO 


53 

CPI 

OOH 

003C CA4200 

c 

54 

JZ 

CP2 


CSEG 

PUBLIC ASCDV 
FUNCTION} 

EDITS A BUFFER FOR 'F' FORMAT INPUT DATA. LEADING 
OR UNARIES ARE ACCEPTED! BUT OTHERS ARE 
CONVERTED TO BLANK. ONLY THE FIRST IS ACCEPTED! 

ALL OTHER NON-DIGIT CHARACTERS ARE CONVERTED TO ZERO. 
LEADING 'F' IS REPLACED WITH BLANK* LEADING UNCHANGED. 

RECITERS UPON pTRYJ 

C<BC)aADDR OF CHAR COUNT IN BUFFER 
C<DE)=ADDR OF BUFFER CONTAINING THE CHAR STRING 

REGISTERS ALTERED} 

C(HL)! C(DE)! CU)! C(B)! C(C) 

fSET BUFFER POINTER 
iGET BYTE COUNT 
rSET C(C)sO 

JSET BYTE COUNT REGISTER 
.GET A BYTE FROM MEMORY 
.CHECK FOR CHAR < '0' 
ilF YES ! CHECK FOR A 
.ELBE CHECK FOR < 't'p THEN VERIFY 
! THAT THE UNARY FLAG IS SET 

.ELSE REPLACE CHAR WITH BLANK 
fSTEP BUFFER POINTER 
f AND DECREMENT BYTE COUNT 
.IF NOT LAST BYTE. GO GET NEXT 
» RETURN WHEN DONE.... 




.CHECK FOR 
.IF CHAR IS 


CHECK_FOR ;-'^^IRST 


CHECK FOR DECIMAL FLAG SET 


.IF CHAR IS 
» FOR A 

{IF 'F' ! CHECK DECIMAL FLAG SET 


]ECK DECIMAL FLAG 
'F' CAROT 


{IF NOT SET. REPLACE THE CHAR WITH 'O' 

{CHECK THE DECIMAL FLAG 

{ TO SEE IF IT IS SET 

I IF NOT SET. SET IT 

{IF SET. CHECK THE UNARY FLAG 

.IF UNARY FLAG IS SET. THEN 

{ . SET THE DECIMAL FLAG 

{ ELSE REPLACE THE CHAR WITH '0' 

.‘CHECK DECIMAL FLAG 
{IF FLAG IS NOT SET. 

{ THEN SET THE UNARY FLAG 


1 




0013 

OOIF 

006C 

006F 

0060 


0000 

0001 

0004 

0005 

0006 

0009 
OOOB 
OOOE 

0010 

0013 

0014 
OOIT- 

0019 
OOlC 
OOID 

0020 
0023 
0026 
0028 
002B 
002D 

0030 

0031 
0034 


El 

CDOOOO 

42 

4B 

CDOOOO 

3E13 

CDOOOO 

3E1F 

CDOOOO 

Cl 

CDOOOO 

3E6C 

CDOOOO 

Cl 

CDOOOO 

013500 

CDOOOO 

3E6F 

CDOOOO 

3E6D 

CDOOOO 

Cl 

CDOOOO 

E9 


E 

C 

E 


3 

4 


0035 0200 


i 
} 

I 

5 i 

6 f 

7 FDIV 

8 FIX 

9 lAD 

10 IDIV 

11 ISUB 

12 i 

13 EXTRN' 

14 f 

15 PUBLIC 

16 1 

17 CSEG 

18 f 

19 FDLEVI 

20 
21 

23 

24 


27 

28 
99 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 TWO 5 

45 

46 


NAME FDLEV 

SUBROUriME FDLfVv IFDL»NFEL»NEV/FDOr »rCLF ) 


> * * 
» » » 


IFDL«IFIX( FDOP/DELF )FNEV -NFa/2 


EOU 13H 

ECU IFH 

EOU 6CH 

EOU 6FH 

ECU 6DH 

AHDLOD r AMDCP.D ? I NTLOD , INTSTR 
FlfLEO 


POP 

CALL 

MOV 

MOV 

CALL 

MVI 

CALL 

MVI 

CALL 

POP 

CALL 

MVI 

CALL 

POP 

CALL 

LXI 

CALL 

MVI 

CALL 

MVI 

CALL 

POP 

CALL 

PCHL 

DW 

EMIf 


H 

AMBLOB 

BfD 

C»E 

AHDLOD 

AfFDIV 

AHDCMD 

AfFIX 

AHBCHD 

B 

IRTLOD 

AflAD 

AHDCMD 

B 

INTLOD 

BfTWO 

IRFLOD 

AiIDIV 

AHDCMD 

A f ISUB 

AHDCMD 

B 

INTSTR 


JPICK OF RFN ADDR 
fFDOP t 


fDELF f 
H FDOP/ICLF ) 
?IFIX( ) 

»MEV t 

PIT I Xu,. )LNEV 
JNFEL \ 


* ■'1 

f2 


t 


P<NFEL/2> 

PaFIX( ,,, )INEV«(NFEL/2) 

?IFDL= '■ 

PRETURN 


PUBLIC SYMBOLS 
FDLEV C 0000 

EXTERNAL SYMBOLS 
AHDCMD E 0000 

USER SYMBOLS 
AHDCMD E 0000 
lAD A 006C 
TWO C 0035 

ASSEMBLY COMPLETE 


AHDLOD 

E 0000 

I NTLOD E 

0000 

INTSTR 

E 0000 

AHDLOD 

E 0000 

FDIV A 

0013 

FDLEV 

C 0000 

IDIV 

A 006F 

I NTLOD E 

0000 

INTSTR 

E 0000 

NO 

ERRORS 






FIX 

ISUB 


A OOIF 
A 006D 
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ASH80 IFIJFDLOD.SRC DEBUG 


iSIS-n 8080/8085 MACRO ASSEMBLER » V3.0 


FDLOD PAGE i 


LOG OBJ 


0013 

OOlO 

OOIF 

006C 

006D 

006F 


LINE 

1 

2 

3 

4 

5 

8 

9 

10 

11 

12 

13 

14 

15 
U 

17 

18 


FDIU 

FADD 

FIX 

lAD 

ISUB 

IDIV 


SOURCE STATEMENT 
NAME FDLOD 

SUBROUTINE FDLOD< IFDL»NFEL»NOD»FDLP»DELF) 

{ 5 5 IFDLsIFIX( FDOP/DELFf 0 , 5 )+NOD-( NFEL -1 )/2 


EQU 

EOU 

EQU 

EQU 

EQU 

EQU 


13H 

lOH 

m 

6CH 

6DH 

6FH 


EXTRN AMDLOD » AMDCMD » I NTLOD y I N TSTR y GI VE 

PUBLIC FDLOD 

CSEG 


0000 El 


20 FDLOD 1 

POP 

H 


fPULL RTN ADDR OFF STK 

0001 CDOOOO 

E 

21 

CALL 

AMDLOD 

JFDOP t 

0004 42 


22 

MOV 

ByD 



0005 4B 


23 

MOV 

CyE 



0004 CDOOOO 

E 

24 

CALL 

AMDLOD 

)DELF t 

0009 3E13 


25 

MVI 

AyFDIV 


OOOB CDOOOO 

E 

26 

CALL 

AMDCMD 

JFDQP/BELF 

OOOE 114B00 

C 

27 

LXI 

DyHALF 


0011 CDOOOO 

E 

28 

CALL 

GIVE 

y0»5 t 

0014 3E10 


29 

MVI 

Ay FADD 


0016 CDOOOO 

E 

30 

CALL 

AMDCMD 

KFD0P/DELFH.5 

0019 3E1F 


31 

MVI 

AyFIX 


OOIB CDOOOO 

E 

32 

CALL 

AMDCMD 

yIFIX(F/D+y5) 

OOIE Cl 


33 

POP 

B 



OOIF CDOOOO 

E 

34 

CALL 

INTLOD 

JNOD f 

0022 3E4C 


35 

MVI 

AylAD 


0024 CDOOOO 

E 

36 

CALL 

AMDCMD 

yIFIX( )4N0D 

0027 Cl 


37 

POP 

B 



0028 CDOOOO 

E 

38 

CALL 

INT 

LOD 

yNFEL t 

002B 014F00 

C 

39 

LXI 

ByO 

m 


002E CDOOOO 

E 

40 

CALL 

INT 

LOD 

yONE t 

0031 3E4D 


41 

MVI 

Ay ISUB 


0033 CDOOOO 

E 

42 

CALL 

AMDCMD 

y( NFEL-1 > 

0036 015100 

C 

43 

LXI 

By TWO 


0039 CDOOOO 

E 

44 

CALL 

INTLOD 

y2 t 

003C 3E6F 


45 

MVI 

AylDIV 


003E CDOOOO 

E 

46 

CALL 

AMDCMD 

y( >/2 

0041 3E6D 


47 

MVI 

Ay ISUB 


0043 CDOOOO 

E 

48 

CALL 

AMDCMD 

yIFIX( .M )-( yi* )/2 

0046 Cl 


49 

POP 

B 



0047 CDOOOO 

E 

50 

CALL 

INTSTR 

fIFDL= " 

004A E9 


51 

52 

PCHL 

* 



yRETURN 

004B 00 


53 HALFt 

DB 

OOHyOOH 

ySOHyOOH 

004C 00 
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ISIS-II 8080/808S MACRO ASSEMRER» 


f&LQ£' PACE 


LOG OBJ 

004D 80 
004E 00 
O04F 0100 
0051 0200 


54 ONEt 

55 TWO! 

56 


SOURC- STATEMENT 


PUBLIC SYMBOLS 
rriLoo c 0000 

EXTERNAL SYMBOLS 
AMBCMO E 0000 

USER SYMBOLS 
AMDCMD E 0000 
GIVE E 0000 
HALF C 004B 
ONE C 004F 
TWO C 0051 


AMBLOB 

E 

0000 

GIVE 

E 0000 

INTLOD E 0000 

INTGTR 

E 0000 


AMDLOD 

E 

OOOO 

FADB 

A 0010 

FDIV A 0013 

FI'LOD 

C 0000 

FIX 

lAB 

A 

006C 

IDIV 

A 006F 

INTLOD E 0000 

INrOTR 

E 0000 

I SUB 


ASSEMBLY COMPLETE » NO ERRORS 
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T 


FORTRAN COMPILER 

PAGE i 

ISIS-II FORTRAN-80 M2.0 COMPILATION OF PROGRAM UNIT GAIN 
“■■“7 MODULE PLACED IN IFl IGAIH^OBiJ 

fLER INMOKED DY} FORT30 {FI {GAIN* SRC DEBUG PAGELENGTH( 77 ) 


i 

n 


C 

c 

C INPUT AN6 


SUBROyTINE GAINC ANGrPCW* IGTBL, IG^C»NPZN» IBND»GSQ ) 
IHTEGER1P2 IGTBL( 80»i )>IG?BC( 31 »4 ) 

{{{ L* 

““ Each freo/polariz cdhe,. , 

+10 






c 

C 


mr. 

4. PCH IN RADIANS 
COMHON/GG/CL ( 6 )>CC( 7f 2)tCST( 9 ) 


■S IN EACH» 


5 

6 

7 

8 
9 

10 

11 

12 


13 

U 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 


C 

C>ii)ii» 

C 

C 

C 

C 


CALL AMD8UB{AGL»ANG» PCH 1 
GO TO (5»10)»IBND 
IN*80 

CALL AINDX( INDXf IN»CSTU )»AGLrCST( 3 ) ) 

IF<INDX*LE*0)INDX=^1 
IF(INDX*GE*81)INDX^IN 
CALL AFLOAT( IGTBL( INDXi NP2N )»GSO ) 

CALL AHDIV< GSQ»GSQ»CSTU ) ) 

RETURN 

C-BANB PATTERN %%% 

TABLE FOR EACH FREO/POLZ COMBO f 31 VALUES IN EACHf 
ORDERED FOR ANGLES FROM 0 TO -60 DEGREES 

10 CALL AHDMULui»AGL*CST( 3)) 

D«ABS(D) 

INsl 

CALL CINDX( INDX»IN»CST(2)rCST(6)^D) 

IF(INDX.GE*31)G0 TO 15 
IF<INDX.LE*0)INDXsl 
CALL AFLOATnNDXrDG) 

CALL AMDMUL<DGfDGfCST(2)) 

CALL AMDSUE((B6»DGfCSn2)) 

CALL AMDSUB(DG»0^DG) 

CALL AMDGN( DGN»CST( 2 )»DG*CBT< 4 )» IGTBC< INDX+irNPZN IGTDC( INDXyNPZN ) ) 
CALL AMDGSO( GSQ » DGN ^ IGTBC( INDX » NPZN ) » CST( 4 ) ) 

RETURN 

15 CALL AFL0AT(IGTBC(3I»NPZN)yGSQ) 

CALL AMDIV(GSf)»GSQ*CST(4)) 

RETURN 

END 


MODULE INFORMATION! 

CODE AREA 9IZE = OIDCH 476D 

VARIABLE AREA SIZE = 0022H 34D 

MAXIMUM STACK SIZE = OOOCH 12D 

43 LINES READ 

0 PROGRAM ERROR(S) IN PROGRAM UNIT GAIN 

0 TOTAL PROGRAM ERROR( S ) 

END OF FORTRAN COMPILATION 
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ASH80 t F 1 1 GAHC . SRC PEBUC PAGCLlN'iTHC 77 } f'AGEi; 1 1= \ V'O 


ISIS-II 8080/8085 KACRO ASSFHBuER» M3»0 


GAHC 


FACE 


LOC OBJ 


LINE 


»: » 

A i 
5 } 


SOURCE STATENEN-r 
NAME G^iHC 

SUBROUriNL GAMCC £>C1 >C2»C3 iC4rC5»C6»C7 »r J 


t * • 
t » I 


Z«C1+F#^ C2+P)f( C3 ^F*{ C4 fC5»r ) ) M Ci. ! C7/r }/ 


0010 

7 i 

8 FADB 

EQU 

lOH 

0011 

9 SUBT 

EOU 

IIH 

0012 

10 MULT 

E8U 

12H 

0013 

11 FDIU 

E8U 

13H 

0015 

12 FCHS 

EQU 

15H 


13 f 

14 EXTRN 

15 i 

16 PUBLIC 

17 } 

18 CSEG 

19 f 


AMBLOBfAMCCMB/AHBS’^R 

GAMC 


0000 

El 


20 GAHCt 

POP 

H 


/PICK OFF REFURN ADDR 

OOOl 

220000 

D 

21 

SHLD 

I SAVE 

P3AVE IT 

0004 

62 


00 

MOV 

H»D 


0005 

6E 


23 

MOV 

LiE 

/SAVE F ADDR IN RP(HL) 

0006 

CDOOOO 

E 

24 

CALL 

AMDLOD 

/C7 t 

0009 

42 


OC! 

4i*V/ 

MOV 

BiD 


OOOA 

4B 


26 

MOV 

Cf E 


OOOB 

CDOOOO 

E 

27 

CALL 

AMDLOD 

/F t 

OOOE 

3E13 


28 

MUI 

A»FDIV 


0010 

CDOOOO 

E 

29 

CALL 

AMDCMD 

/C7/F 

0013 

Cl 


30 

POP 

B 



0014 

CDOOOO 

E 

31 

CALL 

AMDLOD 

fC6 t 

0017 

3E10 


32 

MV I 

AfFADD 


0019 

CDOOOO 

E 

33 

CALL 

AMDCMD 

/(C6FC7/F) 

OOlC 

44 


34 

MOV 

BfH 


001 D 

4D 


35 

MOV 

CfL 


OOIE 

CDOOOO 

E 

36 

CALL 

AMDLOD 

/F t 

0021 

3E13 


37 

MV I 

AfFDIV 


0023 

CDOOOO 

E 

33 

CALL 

AMDCMD 

/( )/F 

0026 

Cl 


39 

POP 

B 



0027 

CDOOOO 

E 

40 

CALL 

AMDLOD 

fC5 f 

002A 

44 


41 

MOV 

B>H 


002B 

4D 


42 

MOV 

C>L 


002C 

CDOOOO 

E 

43 

CALL 

AMDLOD 

‘/F t 

002F 

3E12 


44 

MVI 

A»MULT 


0031 

CDOOOO 

E 

45 

CALL 

AMDCMD 

rC5!fiF 

0034 

Cl 


46 

POP 

B 



0035 

CDOOOO 

E 

47 

CALL 

AM 

CiLOD 

JC4 t 

0038 

3E10 


48 

MVI 

Af 

"ADD 


003A 

CDOOOO 

E 

49 

CALL 

AM 

DCMD 

/< C4+C5)jF ) 

003D 

44 


SO 

MOV 

B» 



003E 

4D 


51 

MOV 

C> 



003- 

CDOOOO 

E 

52 

CALL 

AMi 

iiOD 

/F f 

0042 

3E12 


53 

MVI 

Afi 

MULT 


0044 

cnocoo 

E 

54 

CALL 

am: 

DCMD 

K )4F 

0047 

Cl 


55 

POP 

B 



0048 

CDOOOO 

E 

56 

CALL 

AMDLOD 

/C3 t 

004B 

3E10 


57 

MVI 

AfFADD 


004D 

CDOO''^' 

E 

53 

CALL 

AMDCMD 

/C3H .M )!*F 

0050 

44 


59 

MOV 

BM 



0051 

4D 


60 

MOV 

C;l 



0052 

CDOOOO 

E 

61 

CALL 

AMDLOD 

/F t 

0055 

3E12 


62 

MVI 

A /MULT 


0057 

CDOOOO 

E 

63 

CALL 

AMDCMD 

/F4(C5TF4( )) 

005A 

Cl 


64 

POP 

B 



005B 

CDOOOO 

E 

65 

CALL 

AMDLOD 

/C2 t 
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ISIS-II 8080/8085 HACRO ASSEMBLER^ V3»0 


GAfiC 


PAGE 


LOC OBJ 


LINE 

SOURCE 

STATEMENT 


005E 3E10 


66 

MVI 

A » FADD 


0060 CDOOOO 

E 

67 

CALL 

AMDCMD 

>C2FF4<C3fF4< 

0063 44 


68 

MOV 

B»H 


0064 4D 


69 

MOV 

C»L 


OO^'; CDOOOO 

E 

70 

CALL 

AMDLOD 

fF 1 

006w 3E12 


71 

MVI 

A » MULT 


006A CDOOOO 

E 

72 

CALL 

AMDCMD 

fF*(C2m( o*))) 

006D Cl 


73 

POP 

B 


006E CDOOOO 

E 

74 

CALL 

AMDLOD 

fCl t 

0071 3E10 


75 

MVI 

A » FADD 

»C14F*(C2fF4( 

0073 CDOOOO 

E 

76 

CALL 

MVI 

AMDCMD 

0076 3E10 

77 

A 1 FADD 


0078 CDOOOO 

E 

78 

CALL 

AMDCMD 

>ClfF4<C2+F*( ) 

007B 3E15 


79 

Mv: 

[ 

A»FCHS 


007D CDOOOO 

E 

80 

CA 

-L 

AMDCMD 


0080 Cl 


81 

PO 


B 

fSAVE RESULT AT Z 

0081 CDOOOO 

E 

82 

CA 

LL 

AMDSTR 

0034 2A0000 

D 

83 

L,H 

LD 

I SAVE 

f RETURN 

0037 E9 


8+ . 

85 } 

86 DSEG 

87 ( 

PC 

IL 






0000 


88 I SAVE! 

89 f 

DS 


2 




90 

END 




)) 


))) 


)/F 


PUBLIC SYMBOLS 
GAHC C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 


USER SYMBOLS 
AMDCMD E 0000 
FDIV A 0013 


AMDLOD E 0000 
GAMC C 0000 


AMD3TR E 0000 


AMDSTR E 0000 
I SAVE D 0000 


FADD 

MULT 


A 0010 
A 0012 


FCH3 

SUBT 


A 001 
A 001 


ASSEMBLY COMPLETE » NO ERRORS 
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AHHSO tuium, SRC DEBUU PA(;aFN'«TH( 7?) 


FAGLUnUH', 


<*C) 


ISI5-II 8080/8085 MACRO AB0t-MPU:R» V3.0 


CAML 


PAGE 


LOC UBJ 


LINt: 


3 

4 


SOURCE STATEMENT 
NAME GAME 

SD8ROU r INE GAML( 2 j Cl » C4 ' C5 » C2 » F f C3 ) 


♦ 4 ♦ 7 - 

f ♦ ♦ 


0012 

5 F 

6 MULT 

EOU 

12H 

0011 

7 SUBT 

EOU 

IIH 

0010 

0 FADD 

EOU 

lOH 

0015 

9 FCHO 

EOU 

15H 

0013 

10 FDIO 

EOU 

13H 

0017 

11 PUSFFT 

EOU 

17H 


(Cl+r*a2TC3*F)K C-UC5/f )/n 


0000 

0001 

0004 

f005 

0006 

0005* 

OOOB 

OOOE 

ooor 

0010 

0013 

0015 

0018 

0019 

OOlC 

OOIE 

0021 

0023 

0026 

0029 
002C 
002D 

0030 

0031 

0032 
0035 

0037 
003A 

0038 
003E 
0040 

0043 

0044 

0045 
0048 
004A 
0048 
0050 
0053 
0055 

0058 

0059 
005C 
005E 
0061 
0063 
0066 


El 

220000 

60 

69 

CDOOOO 

3E17 

CDOOOO 

42 

4B 

CDOOOO 

3E12 

r.DOOOO 

Cl 

CDOOOO 

3E10 

CDOOOO 

3E12 

CDOOOO 

010200 

CDOOOO 

Cl 

CDOOOO 

44 

4B 

CDOOOO 

3E13 

CDOOOO 

Cl 

CDOOOO 

3E10 

CDOOOO 

44 

4D 

CDOOOO 

3E13 

CDOOOO 

010200 

CDOOOO 

3E10 

CDOOOO 

Cl 

CDOOOO 

3E10 

CDOOOO 

3E15 

CDOOOO 

Cl 


E 

E 

E 

E 

E 

E 

E 

D 

E 


E 

E 

E 

E 


E 

D 

E 

E 

E 

E 

E 


12 i 

13 EXTRN 

14 i 

15 PUBLIC 

16 i 

17 CSEG 

18 } 

19 GAMLt 

20 
21 

23 

24 

25 

26 
O 7 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
4-7 

48 

49 

50 

51 

cn 

53 

54 

55 

56 

57 
53 

59 

60 
61 
62 

63 

64 

65 


AMDCMD»AMBnTr<»AMDU5D 

RAHL 


f’OP 

SUED 

MOV 

MOV 

CALL 

HVI 

CALL 

MOV 

MOV 

CALL 

MVI 

CALL 

POP 

CALL 

MV I 

CALL 

HVI 

CALL 

LXI 

CALL 

POP 

CALL 

MOV 

MOV 

CALL 

MVI 

CALL 

POP 

CALL 

MVI 

CALL 

MOV 

MOV 

CALL 

MVI 

CALL 

LXI 

CALL 

MVI 

CALL 

POP 

CALL 

MVI 

CALL 

MVI 

CALL 

POP 


t A 

rh 


H 

I SAVE 
Hil< 

AMDLOD 
A » PUSH I 
AMDCMD 
B»D 
CfE 

AMDLOD 
A > MULT 
AMDCMD 
8 

AMD! UD 
A»FADD 
AMDCMD 
A? MULT 
AMDCMD 
B.ISAVEP2 
AMDBTR 
8 

AMDLOD 
8»H 
CrL 

AMDLOD 
AfFDIV 
AMDCMD 
8 

AMDLOD 
A^FADD 
AMDCMD 
8»H 

ca 

AMDLOD 
AsFDIV 
AMDCMD 
8rISAVE(-2 
AMDLOD 
A#FADD 
AMDCMD 
8 

AMDLOD 
A>FADD 
AMDCMD 
A»FCHB 
AMDCMD 
8 


JSAVE RETURN ADDR 
INTERNAL BUFFER 


JBAVE ADDR OF F IN RP(HU 

> f T 

?F t 

?C3 t 
fCSiFFU-' 
fC2 t 

f(C2'FC3*F)tF 

JU:24C3*F)!fr 

fSAVE RESULT AT INTERNAL BUFFER 
JCS t 

>‘F 1 
JC5/F 
5C4 t 

nCA FC5/F) 

FF t 

H ... )/F 
r(C24C3!>F)4F t 
H ... )/F F ( ... )*F 
rCl t 
» {• 
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ISIS-II 8080/3085 MACRO ASSEMBLERr V3,0 


GAML 


PAGE 


LOG OBJ 


LINE 


SOURCE STATEMENT 


0067 CDOOOO 
006A 2A0000 
006B E9 


E 

D 


0000 


66 

67 

68 
6? { 

70 PSEG 

71 f 


CALL 

LHLD 

PCHL 


AMDSTR 

ISAVE 


JSAVE RESULT AT Z 


mETURN 


72 ISAVE 5 


73 


ns 

END 


PUBLIC SYMBOLS 
GAML C 0000 


AMDCND E 0000 

AMDLOn E 0000 

AMDSTR E 0000 





USER SYMBOLS 
AMBCMD E 0000 

AMDLOn E 0000 

AMDSTR E 0000 

FABB 

A 

0010 

FCHS A 0015 

FBIV A 0013 

suBT A oon 

GAML C 0000 

ISAVE B 0000 

MULT 

A 

0012 

PU3HT A 0017 

ASSEMBLY COMPLETE > NO ERRORS 
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FORTRAN COHriLER 

PAGE 1 


ISIS-II FORTRAN-80 V2.0 COKPILAnOK OF PROGRAM UNIT GAMMA 

OBJECT HOBULE PLACED IN {FI {GAMMA. OBJ 

COMPILER INVOKED BY{ F0RT80 {FI {GAMMA. SRC DEBUG 


2 


3 

4 


5 

6 


8 

9 

10 

11 

12 


C 

C 

C 


C 

C 


C 

C 

C 

C 


* « * 

t * 9 


SUBROUTINE GAMMA( FRQ»IBfNPZfZ ) 

EVALUATES ROLL-OFF FOR FREOUENCYrBAHDrPOLARHATION COMBOS 

COMMON/GG/CL( 6 ) » CC( 7 » 2 )i CST( 9 ) 

CALL AMDIV{F»FR0vCL<6)) 

GO T0( 10»l!3)fIP 


L-BAND DATA 


* » I 

* » 


10 CALL GAMLIZjU . 
RETURN 


{{{ C-BAND DATA 


.i,(4)jCL(5)^CL(2)»F»CL(3)) 


15 GO TO (17»17»i6fl6)#NFZ 
{{{ NP7.{ lsW^2=VHy3«HHf4=HV 

U CALL GAMC(ZyCC(ly2)yCC<2r2)»CC(3.2)yCi:<4y2)yCC(5y2)fCC>.l.y2)yCC(7y2)yF) 
RETURN 

1 7 CALL GAMC( Z y CCa > 1) f CC( 2 » 1 ) y CC( 3 f 1 ) f CC( 4 y 1 ) y CC« 5 y 1 ) y GC< 6 » 1 ) y CC( 7 > 1 ) y F ) 
RETURN 
END 


MODULE INFORMATION'. 

CODE AREA SIZE = OOBIH 
VARIABLE AREA SIZE « OOOCH 
MAXIMUM STACK SIZE = OOIOH 


O'? 


LINES READ 


177D 
1 2D 
lAD 


0 PROGRAM ERRORS S) IN PROGRAM UNIT GAMMA 

0 TOTAL PROGRAM ERRORS S) 

END OF FORTRAN COMPILATION 
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FORTRAN COHPILER 

PACE 1 

ISIS~II FORTRAM-80 V2*0 COHPILATION OF PROGRAM UNIT CETULU 
OBJECT MODULE PLACED IN SF1!6ETVLU»0BJ 

COHPILER INVOKED BYt F0RT80 :F1:GETULU»SRC DEBUG SYMBOLS PAGELENCTH( S3 ) 


3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


5 

ii 

20 

25 

30 

35 

40 

50 

51 

52 


SUBROUTINE GETVLU( CIOBUF i lOBUFF > NIO r N20, ISTATr lERR t XNUM ) 
EXTERNAL MSCOUT i KE YBRD f ASCDV r CRLF 
INTEGERtl IOBUFF( 3C)rN10>N20 
CHARACTER»30 CIOBUF 

CALL CRLF 
lERR^O 

«RITE( CIOBUFr iO» I0STAT=ISTAT»ERR-50 > 

FORMA T( 5X i ^ ENTER VALUE t M3X ) 

CALL MSC0UT(N20fI0BUFF) 

CALL K£YBRD(N10»I0BUFF) 

CALL ASCDV(N10»I0BUFF> 

READ( CIOBUF » 35 » lOSTAT^ISTAT rERR^Sl » ENDs52 ) XNUM 
FORMAK F5*0) 

RETURN 

IERR-1 
GO TO 40 
IERR=2 
GO TO 40 
IERR=3 
GO TO 40 


!1 


END 
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FORTRAN COHPILER 

PAGE 2 

SYHBOL LISTING 


0EFN ADDR SIZE NAHEr ATTRIBUTES r AND REFERENCES 


8 OOOOH 


10 

LABEL 

9 008CH 


15 

LABEL 

10 0098H 


20 

LABEL 

11 00A4H 


25 

LABEL 

12 OOBOH 


30 

LABEL 

13 0017H 


35 

LABEL 

14 OOFAH 


40 

LABEL 

7 0053H 


5 

LABEL 

15 OOFBH 


50 

LABEL 

17 0107H 


51 

LABEL 

19 0113H 


52 

LABEL 

OOlOH 

18 

@10PB 

INTEGER42 DIHENSIONED 



ASCDM 

EXTERNAL SUBROUTINE 

OOOOH 

2 

CIOBUF 

CHARACTER430 PARAMETER 

0002H 

2 

CIOBUFG 

INTEGER42 



CRLF 

EXTERNAL SUBROUTINE 

OOOCH 

2 

I ERR 

INTEGERI2 PARAMETER 

0004H 

2 

lOBUFF 

INTEGER*! PARAMETER DIMENSIONED 

OOOAH 

2 

ISTAT 

INTEGER*2 PARAMETER 



KEYBRD 

EXTERNAL SUBROUTINE 



MSGOUT 

EXTERNAL SUBROUTINE 


FORTRAN COHPItER 
PAGE 


3 


0004H 

2 

NIO 

INTEGER^l PARAMETER 

0008H 

2 

N20 

INTEGER*! PARAMETER 

OOOEH 

2 

KNUM 

REAL44 PARAMETER 


HOOULE INFORNATIONi 




) 022 »> 


HAXIHUH STACK SIZE » OOOCH 
24 LINES READ 


2B7D 

34D 

12D 


0 PROGRAM ERROR(S) IN PROGRAM ^NIT GETVLU 


0 TOTAL PROGRAM kKROR<S) 
END OF FORTRAN COMPILATION 
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ASM80 .TIIGXI.SRC DEBUG PAGELENCTHC 77 ) PAGEUIDTIK 90 ) 


ISIS-II 8080/8035 MACRO ASSEMBLER, V3.0 


GXI 


PAGE 


LDC OBJ 


LINE 

1 

0 


0012 

0004 

0010 

0019 


0000 

0001 

0004 

0006 

0009 
OOOA 
OOOB 
OOOE 

0010 
0013 
0015 
0018 
0019 
OOlC 
OOIE 
0021 
0022 
0023 
0026 
0028 
002B 
002C 
002F 
0031 
0034 
0036 
0039 
003A 
003D 


El 

CDOOOO 

3E04 

CDOOOO 

42 

4B 

CDOOOO 

3E02‘ 

CDOOOO 

3E12 

CDOOOO 

Cl. 

CDOOOO 

3E12 

CDOOOO 

a 

CDOOOO 

3E03 

CDOOOO 

Cl 

CDOOOO 

3E12 

CDOOOO 

3E10 

CDOOOO 

Cl 

CDOOOO 

E9 


E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 

E 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
9"? 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

if 

48 

49 


t 

« 

f 

» 

f 

k 

COS 

SIN 

MULT 

TAN 

FADp 

EXCHG 


SOURCE STATEMENT 
NAME GXI 
SUBROUTINE GXK XIiXT,ALr,RL,DR) 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


XI«XTHiCOS( DR )EALT.iiTAN( RL )*SIN( DR ) 

12H 
04H 
lOH 
19H 


^XTRN AMDLOD,AMDCMD,AMDSTR 

PUBLIC GXI 

CSEG 


GXIt 


POP 

CALL 

MVI 

CALL 

MOO 

MOV 

r>Ai I 

W 

MVI 

CALL 

MVI 

CALL 

='0P 

CALL 

VI 

ALL 

iOV 

OV 

ALL 

WI 

CALL 

OP 

ALL 

MVI 

ALL 

MVI 

CALL 

POP 

ALL 

,CHL 

END 


H 

AMDLOD 

ArTAN 

AMDCMD 

BfD 

CrE 

AHDLOD 
A, SIN 
AMDCMD 
A » MULT 
AMDCMD 
B 

AMDLOD 
A, MULT 
AMDCMD 
BiD 
CrE 

AMDLOD 

ArCOS 

AMDCMD 

B 

AMDLOD 

AfMULT 

AMDCMD 

ArFADD 

AMDCMD 

B 

AMDSTR 


JSAVE RTN ADDR 

mi t 

rTAN(RL) 


rDR t 
rSINaiR) 

^SIND4TANR 
r ALT! SIND* TANR 
?ALT*SIND*TANR 

fDR t 
rCOS< DR) 

)XT t 

{XT*COS<DR){ALT*m.{" 
r‘(XT...)L( ALT*SD*TR) 


fXI = 
rRETURN 


PUBLIC SYMBOLS 
GXI C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AHDLOD E 0000 


USER SYMBOLS 
AMDCMD E 0000 
FADD A 0010 


AMDLOD E 0000 
GXI C 0000 


AMDSTR E 0000 


AMDSYR E 0000 
MULT A 0012 


COS 

SIN 


A 0003 
A 0002 


EXCHG A 0019 
TAN A 0004 


ASSEMBLY COMPLETE, NO ERRORS 
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ASH80 tFl}GXT*SRC DEBUG 


ISIS-II 8080/8085 MACRO ASSEMBLER^ 03.0 


Gxr 


RAGE 


LOG OBJ 


000 + 

0012 

001/ 

0011 

0001 


LINE 


I 

4 

5 

6 
7 


SOURCE STATEMENT 
NAME GXT 

SUBROUTINE GXT( XTrRLrANGL»ALT> 

{ } { XT»SORT( ( AL‘njTAN\ ANGL ) )*iii2“( ALT^ANv RL ) )!f!r2 ) 


TAN 


. MULT 

8 PUSHT 

9 FSUB 

10 SORT 

11 } 

12 EXTRN 

13 »' 

14 PUBLIC 

15 { 

16 CSEG 


EQU 

EOU 

EOU 

EOU 

EOU 


17 

IIH 

OlH 


ANDLOD»AKDCMD»AMDSTR 

GXT 




17 f 




0000 El 


18 Gxn 

POP 

H 

JPICK OF RTN ADDR 

0001 CDOOOO 

E 

19 

CALL 

AHDLOD 

fANGL 1 

0004 3E04 


20 

HOI 

AfTAN 


0006 CDOOOO 

E 

21 

CALL 

AHDCHD 

fTAN( ANGL ) 

0009 42 


22 

HOV 

B»D 


OOOA 4B 


0~K 

HOV 

CfE 


OOOB CDOOOO 

E 

24 

CALL 

AHDLOD 

JALT t 

OQOE 3E12 


25 

HOI 

A*HULT 


0010 CDOOOO 

E 

26 

CALL 

AHDCHD 

?ALT4TAN( ANGL) 

0013 3E17 


27 

HOI 

A f PUSH! 

0015 CDOOOO 

E 

28 

CALL 

AHDCHD 

f(ATA){(ATA) 

0018 3E12 


29 

HOI 

A»HULT 


OOIA CDOOOO 

E 

30 

CALL 

AHDCHD 

}(ATA)4!f2 

OOID Cl 


31 

POP 

B 


OOIE CDOOOO 

E 

32 

CALL 

AHDLOD 

»RL t 

0021 3E04 


33 

HOI 

A»TAH 


0023 CDOOOO 

E 

34 

CALL 

AHDCHD 

5TAN<Rl)t( ..4r2) 

0026 42 


35 

HOO 

B»D 

0027 4B 


36 

HOO 

C»E 


0028 CDOOOO 

E 

37 

CALL 

AHDLOD 

JALT t 

002B 3E12 


38 

HOI 

AfHULT 

002D CDOOOO 

E 

39 

CALL 

AHDCHD 

JALmANRtC ,.)f42) 

0030 3E17 


40 

HOI 

A » PUSHT 

0032 CDOOOO 

E 

41 

CALL 

AHDCHD 

)ATRIATRI( ..)f42) 

0035 3E12 


42 

HOI 

A » MULT 


0037 CDOOOO 

E 

43 

CALL 

AHDCHD 

JATR442{( 

003A 3E11 


44 

HOI 

AjFSUB 


003C CDOOOO 

E 

45 

CALL 

AHDCHD 

JATAW2 - ATR442 

003F 3E01 


46 

HOI 

A f SORT 


0041 CDOOOO 

E 

47 

CALL 

AHDCHD 

5SQRT< " ) 

0044 Cl 


48 

POP 

B 


0045 CDOOOO 

E 

49 

CALL 

AHDSTR 

jxr = " 

0048 E9 


50 

51 

52 

PCHL 


? RETURN 



^D 
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ISIS-n 8080/8085 MACRO ASSEMBLER^ V3»0 


PUBLIC SYMBOLS 
GXT C 0000 

EXTERNAL SYMBOLS 

AMDCMB E 0000 AMDLUB E OOOO 

USER SYMBOLS 

AMDCMD E 0000 AMDLOB E 0000 
PUSHT A 0017 

SORT A 0001 TAN A 0004 
ASSEMBLY COMPLETE » NO ERRORS 


AMDBTR E 0000 


AMDSTR E 0000 FSUB A 0011 


C 0000 MULT A 


'? I Xik l,:VAi''jy 
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ASH80 {FltGYI.SRC I'lBUG FAGELfNGm77' PAGEUlt'l IH 9 . 3 


ISI3-II 8080/3085 HACRO ASM'LERi v»3.> 


GV. 


PAGE 


LOG OBJ 


0003 

mi 

0004 
OOU 
0019 


LINE 

1 

0 


6 

7 

8 
9 

10 

11 

12 

I' 


! 

f 

t 

i 

COS 

SIN 

MULT 

TAN 

FSUB 

EXCHG 

i 

EXTRN 


SOURCr STATEMENT 
NAME GY I 


SUBROUTINE GYK YlrXTrALTfRL^BR) 

YI«XT»SIN( DR )-ALT4TA/N RL )*COS( DR ) 


. 4 ♦ 
» » » 


EOU 

EQU 

EQU 

EQU 

EQU 

EQU 


03H 

04H 

UH 

19H 


AMDLQD»A«DCMD»AHDSTR 





15 

PUBLIC 

k 

9 

GYI 






16 







17 

CSEG 

A 

r 







18 

PUP 






19 

GYIf 

H 

j|AV^ RTN ABDR 

0001 

CDOOOO 

E 

20 

CALL 

AMBLOB 

0004 

3E04 


21 


HOI 

A, TAN 


0006 

CDOOOO 

E 

92 


CALL 

AMDCMB 

rrAN(RL) 

0009 

42 


23 


MOV 

B,D 


OOOA 

4B 


24 


MOV 

CfE 


OOOB 

CDOOOO 

E 

25 


CALL 

AMDLOB 

»DR t 

OOQE 

3E03 


26 


MVI 

A, COS 


0010 

CDOOOO 

E 

27 


CALL 

AMDCMB 

JCOS(DR) 

0013 

OOlS 

3E,t2 


23 


MVI 

A 1 MULT 


CDOOOO 

E 

29 


CALL 

AMDCMB 

fCOSDS^TANR 

0013 

Ci , 


30 


POP 

B 

0019 

poooo 

E 

31 


CALL 

AMDLOB 

JALTlCOSBUiTANR 

OOlC 

302 


32 


MVI 

A f MULT 

OOIE 

CDOOOO 

E 

33 


CALL 

AMDCMB 

fALT4C0SDITANR 

0021 

42 


34 


MOV 

BfB 

0022 

4B 


35 


MOV 

CrE 


0023 

CDOOOO 

E 

36 


CALL 

AMBLOB 

,‘DR t 

0026 

3E02 


37 


MVI 

A, SIN 


002S 

CDOOOO 

E 

38 


CALL 

AMDCMB 

fSIN<DR) 

002B 

Cl 


39 


POP 

B 

002C 

CDOOOO 

E 

40 


CALL 

AMDLOB 

>XT t 

002F 

3E12 


41 


MVI 

A, MULT 


0031 

CDOOOO 

E 

42 


CALL 

AMDCMB 

}XT)|(SINaiR) 

0034 

3E19 


43 


MVI 

A»EXCHG 

0036 CDOOOO 

E 

44 


CALL 

AMDCMB 

JALT*SD4TR{XT4SIN<BR) 

0039 

3E11 


45 


MVI 

A, FSUB 


003B 

CDOOOO 

E 

46 


CALL 

AMDCMB 

MXT,,,)-( ALT4SD)»TR) 

003E 

Cl 


47 


POP 

B 


003F 

CDOOOO 

E 

48 


CALL 

AMDSTR 

fYI - " 

fRETURN 

0042 

E9 


49 


PCHL 

r 





50 







51 


ENB 




PUBLIC SYMBOLS 
GYI C 0000 

EXTERNAL SYMBOLS 

AMDCHD E 0000 AMDLOD E OOOO 


USER SYMBOLS 
AMDCHD E 0000 
FSUB A 0011 


AMDLOD E 0000 
GYI C 0000 


AMDSTR E 0000 


AMDSTR E 0000 
MULT A 0012 


ASSEMBLY COMPLETE, NO ERRORS 


COS 

SIN 


A 0003 
A 0002 


EXCHG 

TAN 


A 0019 
A 0004 
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ASM80 {FillBEIXiSRC DEBUG PAGELENGTH( 75 ) PAGEWIBTH(90) 


I8IS-II 8080/8085 MACRO ASSEMBLER! M3.0 IBELL PAGE 1 


LOG OBJ 

LINE 

SOURCE STATEMENT 


1 

2 1 

3 1 

4 f 

5 

6 1 
l> 

ll i 

11 IBELL 1 

12 

H 

NAME 

IBELL 


FUNCTION! SENDS A BELL CHARACTER TO THE CRT 
EXTRN ECHO 


CSEG 



PUBLIC 

IBELL 

0000 0E07 
0002 pOOOO E 
OOOS C9 

MUI 

CALL 

RET 

END 

Cf07H JGET BELL CHARACTER 

ECHO fSEND IT TO CRT 

PUBLIC SYMBOLS 
IBELL C 0000 

EXTERNAL SYMBOLS 
ECHO E OOOO 




USER SYMBOLS 
ECHO E 0000 

IBELL C 0000 



ASSEMBLY COMPLETE 

! NO ERRORS 




ASH80 {FltlBFILL.SRC DEBUe PAGElENGTri( 7? ) PASa'IBM 90 ) 


ISIS-n 8080/8085 MACRO ASSEMBLER* V3.0 


IBFILL 


LOC OBJ 


SOURCE STAT£flEf,r 
NAME IBFRL 
FUNCTION I 


FILL lOUT BUFFER UITH 099H. 
EACH LINE IS 128 BYTES. 

LIME COUNT PASSp IN RP<BC). 
LINE COUNT IS LESS THAN 256. 

BUFFER ADBR PASSED IN RPa'E). 


EB 

OA 

47 

0E80 

3699 

23 

0 **‘ 

C20500 

05 

C20300 

C9 


PUBLIC IBFILL 


IBFILLt XCHG 
LBAX 


B 

B*A 

C*0Q0H 

Mf079H 

H 

C 

Ll.2 

B 

LLl 


fGET LINE count IN ACCUM 

JSET b4.:i:ne count 

rSET COUNTER POR BYTES PER LINE 
JMOVE BTTE OF 97H TO MEriCRf 
ISTEP ABDR POINTER 
j DECREASE BITE COUhT REMAINING 
H.OOP TILL A LINE IS BONE 
JBECREASE LINE COUNT Bf ONE 
JLOOP TIL ALL LINES BONE 


PUBLIC SYMBOLS 
IBFILL C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 
IBFILL C 0000 


C 0003 


ASSEMBLY COMPLETE* NO ERRORS 


C 0005 



A8H80 {FUICRLFiSRC DEBUG 


I8I8~n 8080/8085 MACRO ASSEHiiLERr V3*0 


ICRLF PAGE 1 


LOC OBJ 


LINE 


00E4 

OOEA 

OOIB 

OOOD 

OOOA 

0000 OEOD 
0002 CD0600 
0005 C9 


0006 

0007 

0009 

OOOA 

OOOD 

OOOF 

m 

0017 

0018 
OOIB 
OOID 
0020 
0023 
0026 
0027 


41 

j|lB 

C20FOO 

0E24 

CB2800 

s?r 

B8 

C22600 

OEOA, 

CD2800 

CD4100 

C03300 

48 

C9 


0028 DBCD 
002A E601 
002C CA2800 
002F 79 
0030 D3CC 
0032 C9 


0033 3E16 

0037 3D 

0038 00 

0039 C23700 
003C OD 
003D C23700 

0040 C? 

0041 DBE6 


if te 

12 F8C 

llEf 

IJ ( 

16 CRLH 

17 

18 

19 i 

20 ECHO! 

d!,d 

23 

24 


SOURCE STATEMENT 
NAME ICRLF 

FUNCTION IS TO OUTPUT A CARRIAGE-RETURN AND LINE FEED 
REGISTERS ALTERED! C(C)»C(B)»C( A) 

CSEG 

PUBLIC CRLF f ECHO » CO » DELAY 


EQU 

EQU 

EQU 

EQU 


MMI 

CALL 

RET 

MOV 

MVI 

CMP 

JNZ 

MVI 


0E4H 

0E6H 

OIBH 

C»ODH 

ECHO 


BrC 

»ESC 


ECHOS 

C»'4^ 



25 ECHOS! 

CALL 

CO 

C 

26 

27 

it' 

AfCR 


28 

CMP 

B 

c 

29 

JNZ 

ECHIO 


30 

MVI 

C»LF 

c 

31 

CALL 

CO 

c 

32 

CALL 

BUSY 

c 

33 . . . 

CALL 

DELAY 


34 ECHIO! 


C»B 


35 . 

RET 



36 { 

37 CO! 

IN 

OCDH 

c 

38 

39 


OlH 

CO 


40 

MOV 

A>C 



OUT 

OCCH 


42 , 

RET 


43 { 



44 { 

45 DELAY! 

MVI 

A»16H 


46 

MVI 

C»16H 


47 LOOP! 

DCR 

A 


48 

NOP 


c 

49 

JNZ 

LOOP 


50 

DCR 

C 

c 

51 

JNZ 

LOOP 


52 

RET 



53 { 

54 BUSY! 

IN 

PORTC 


1 ESCAPE CHARACTER 

»R- 


jCAg|IAC|^RiIURN.CHARACTER 


I PUT C/R RETURN CHAR INTO REG C 
ISEND TO OUTPUT UNIT 


jSAVE ARG 

ARE WE ECHOING AN ESCAPE? 
fIF NO f SRANCH 
!IF YESf -END OUT A 
!D0 OUTPUT THROUGH CO ROUTINE 
fOUT TO PRINTER 


JWAS CHAR s CR 
{IF NO f CONTINUE 
{IF YESf SEND OUT 


A LINE FEED ALSO 


{OUT TO PRINTER 

{WAIT FOR CARRIAGE TO GEf HOME 
{RESTORE ARG 


{GET STATUS OF CONSOLE 
SEE ILXMTR READY 
{NO - TRY AGAIN 

{ELSE MOVE CHAR TO A FOR OUTPUT 
{SEND TO CONSOLE 


{SET REG A TO 16H 

* M ^ C 


{GET STATUS 
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ISIS-n 8080/8085 HACRO ASSEMBLER i V3.0 


ICRLF PACE 


9 


LOC 

OBJ 


LINE 

SOURCE STATEMENT 

0043 

E630 


55 

ANI 

30H 

m 


D 


STA 

CPI 

LOC 

OOH 

004A 

CA5E00 

C 

58 

JZ 

PRINT 

004D 

E620 


59 

ANI 

20H 


FEOO 

C26D00 

C 

60 

61 

%l 

OOH 

INCRMT 

0054 

3AOOOO 

D 

62 

LDA 

LOC 

0057 

E610 


63 

ANI 

lOH 

0059 

FEOO 


64 

CPI 

OOH 

005B 

C24100 

C 

65 

JNZ 

BUSY 

005E 

7E 


66 PRINT! 

MOO 

A>M 

005F 

2F 


67 

CMA 


0060 

D3E4 


68 

OUT 

M 

0062 

3E00 


69 

MVI 

<>''64 

D3E6 


70 

OUT 

PORTC 

v<^66 

00 


71 

NOP 

0067 

00 


72 

NOP 


0068 

00 


73 

NOP 


0069 

3E01 


74 

HVI 

ArOlH 

006B 

D3E6 


75 

OUT 

PORTC 

006D 

C9 


76 INCRMT! 

RET 




Leg 



0000 



79 { 

80 LOC! 

DS 

1 




81 

END 


PUBLIC 

SYMBOLS 





CO 

C 0028 

CRLF C 0000 

DELAY 

C 0033 


>HASK LOUER NIB > UNUSED UPPER BITS 
iSAUE STATUS 

JCHECK FORJwiTCH FBUSYfLOU TRUE 
fIF TRUE PRINT 
JMASK OFF BUSY 
; CHECK FOR TRUE 

^RECALL STATUS BYTE 
fHASK OFF SWITCH STATUS 
{CHECK FOR BUSY 


fCET BYTE AND COMPLIMENT 
{SEND OUT 
I SEND 

{ STROBE 

{THEN 

{ DELAY 

{ . . A LITTLE 

{SEND HIGH TO PRINTER 


ECHO C 0006 


EXTERNAL SYMBOLS 


USER SYMBOLS 

BUSY C 0041 CO C 0028 CR A OOOD CRLF C 0000 DELAY C 0033 ECHOS 

. ECHIO C 0026 

ECHO^^^C 0006^^^ ESC A 001 B INCRMT C 006D LF A OOOA LOC D 0000 LOOP 

PORTC A 00E6 ^ PRINT C 005E 
ASSEMBLY COMPLETE » NO ERRORS 
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c oc 

C 00 


FORTRAN COMPILER 


PAGE 1 


ISIS-n FORTRAN-80 U2»0 COMPILATION OF PROGRAM UrUT lENDI 
OBJECT MOnUlE PLACEB IN iFlJlENDI.OBJ 

COMPILER INVOKED DY! FORIOO intlENDI ,SRC DEBUG PAGELENGTiR // ) PAGEL'IDTm 90 ) 


SUBROUTINE lENDI 

n 

INTEGERS KESC 
INTEGERifa IKOC 
C 

C ttl SETS FLAG UHEN CZI -INTEGRATION 10 DONE 

C 

C 

COMMON /A/ lEOCfNESC 
C 

SAVE/A/ 

C 

IE0C«2 

RETURN 

ENB 


MODULE INFORMATION} 

CODE AREA SIZE = OOOZH 7D 

VARIABLE AREA SIZE = OOOOH OD 

MAXIMUM STACK SIZE = OOOOH OD 

15 LINES READ 

0 PROGRAM ERROR(S) IN PROGRAM UNIT lENDI 

0 TOTAL PROGRAM ERRORS S ) 

END OF FORTRAN COMPILATION 


FORTRAN COMPILER 


PAGE 1 


ISIS"II FORTRAN-80 V2.0 COMPILATION OF PROGRAM UNIT IKCYI 
OBJECT MODULE PLACED IN tFi ilKEYI^OBJ 

COMPILER INVOKED BY{ F0RT80 {F1UKEYI*SRC DEBUG FAGELENGTW 7/ 


5 


C 

C 

C 

C 

C 


* » * 
• ♦ ♦ 


SUBROUTINE IKEYI 
INTECEWi KESC 

SETS FLAG FOR KEYBOARD 'ESC' INTERRUPT 

COMMON/A/IEOC»KESC 

BAVE/A/ 

KESCs2 

RETURN 

END 


MODULE INFORMATION} 

CODE AREA SIZE = 0006H AD 

VARIABLE AREA SIZE = OOOOH OD 

MAXIMUM STACK SIZE = OOOOH OD 

12 LINES READ 

0 PROGRAM ERROR<S> IN PROGRAM UNIT IKEYI 

0 TOTAL PROGRAM ERROR<C) 

END OF FORTRAN COMPILATION 


) PAGEUIDTH(90) 


217 


A!3iiH0 {f UTNrr.uRC DEtUG rfiGaCNGHK 77 ) ! AGl U. vTli. VO ) 


ISIS* II BOao/3035 MACRO ACGCMILL'P 


T^» r r 
A It I 1 


RAGE 


LOC 05 J 


LINE 


SOURCE 


vj I n M 


00 IF 
0040 
0020 
0002 
OOA6 
OOEB 
0005 
0005 
0009 
0055 
OOES 
00E9 
OOOQ 
OOOA 
OOOB 
OOFTi 
OOFF 
OOEC 
0020 
0003 
OOEF 
00E7 


0000 3EA6 


0004 
OOOA 
0003 
OOOA 
OOOC 
OOOE 
00 iO 
0012 
00.14 


3E0D 

D3EB 

3E05 

D3EB 

3E09 

D3l::& 

3Ei:i5 

D3Ei1 

3P.08 


4 

4 

5 

6 

7 

8 
9 

10 

n 

12 

.13 

14 

15 


17 

18 

19 

20 
21 

23 

24 


26 

07 

r 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 


4.i 

44 

45 


43 

49 

50 

51 

c;n 

in 

53 

54 

ti'.cr. 

56 

57 

58 

59 
AO 


J 
« 
i 

i> 

1 

9 
« 

I 
« 
t 

f 

4> 

f 

k 

9 

A 

{ 
t 

k 

9 

h 

I 
i 


&IFHL. 


Ii4Er.^ALI2ATiar,' AN5 CZT BOARS 
UTU.UV ROUT,INCru ROUTINES 
INCLUTEr. hiUu 
IN I no 

T’*i r n 'f'f 
4 It kw i. I 

INI25? 

HSKGET 
INT8ET 
NERD 
CZT 
CZTk 
IBIF'HL 


NAME IN IT 
PUBLIC INIPIu* 

PUBLIC 


4 ? 1 ;|| )f if * H * 1(1 A 1 If l| ^ $ )? if 


.iN ICirK INI.LL9i<nI>i,;,>L 1 » .^N i OLT » NLRS f CZT vCZ IRrI 


ICU'l 

ICU'2 

0CU2 

BHA 

CUB255 

C8255 

INTEA 

INTEB 

F.ILB 

f.i:l,b 

D8255 

BATA 

BATE 

LSB 

M!5.8 

UrIASK 

MACK 

D(3.251 

Eo:i: 

LOABN 

tJNSYN 

UNSTB 

5 


CSEG 


EOlJ 

OlFil 

E«U 

4011 

EOlJ 

20H 

EOU 

09H 

EQIJ 

0A6H 

EOU 

OEBII 

ECU 

OBH 

EQIJ 

05H 

EQIJ 

09H 

EQIJ 

OBBH 

EQIJ 

0E8H 

EQIJ 

0E9H 

EQIJ 

OSH 

EQIJ 

OAH 

EQIJ 

OBH 

EQIJ 

OFBH 

EQIJ 

OFFH 

EQIJ 

OECH 

EQIJ 

20H 

EQIJ 

OSH 

EQIJ 

OEFH 

EQU 

0E7H 


} lit Hi**!!! 
**lit*n44 
IN TRIO 5 


INITIALIZE 


3255 PK) FOR BI-FHA5E-L OUTFUT, NERBA3 INPUI 


OARB 


MU I 

A* 

CU8255 

OUT 

C3255 

MU I 

Af 

INTEA 

OUT 

C8255 

MU I 

Af 

INTEB 

OUT 

C8255 

MU I 

A( 

riLB 

OUT 

C3255 

MU I 

Ac 

FI LB 

OUT 

B32 

■ fr c* 
•Jo 

MUI 

A, 

BAT 6 


JCONTROL^UORB FOR; FORT A MuBE 1 OUTPUT 
N-ORI B MOBE 1 INPUT, GROUP 2 SBC 80/2 

jCNABLE.INTERftrur UPON hCKNUWLEBGE 
flUK PUR] A, 

{ENABLE INTB:RRUK UPOn CTROBL 

;for porf b 

?SE,;r BIT 4 DP HJRI C 
pro INBICAFE FILL BAIA 
JURITc.FILL BhT4.ro porf a 
I P .1. L L . I' A r A iN I.) U L 0 A »•> E u 
ftilaOci Bit 4 u*l i’’0l5 , AtuL Bh I A 


0 B 
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S0':i0/60B5 HACftO AoKHSLERy vI^O 


i'h‘.'/L 


LDC U?.] 

LINE 

SOURCE STATLMENr 




00,1.6 E3EE 

1 

OUT C8255 

yNOU I 

fRITiuN i U i'URT f 

■1 lu ,i,Nik-!U RL 1 uv ho I'l 

EAl lATA 

yRETUT 



0013 C9 

62 
/ *7 * 

RET 

.f'i FRUn j.N.i.i'ij 



002F OA 
0030 D3rt? 
0032 C9 


05 / 

/ J A A 

00 a i 


00i<? 

79 

68 

NOV 

001 A 

E30A 

69 

OUT 

00 tc 

73 

70 

m 

00 IE 

E30E 

“V ^ 

7 .1 

OUT 

00 IF 

C? 

. V 

/ Ah 

RET 


INITiALi:;,L-; 

•f r- 7 T >• 

>'( i, t/i. ' V 

r'.»C 

LG& 

Ayl. 


cn jc-jHiU ift/Ufimifif 

I .1 \>\ K f ►fc'i » w r»‘.yWv»n 

yOL)Ti''Ui U'_ AIi.Ju;.}i.i 
JHij'VE .[!' Gv\ ) _i w hi«'(,''V! 5« 
yljUiRbi '.L vw 

y KE'i'liRi'i i’Kuri i.ntw»i 




77 IN.I259! 


0020 

F3 

“V ,n 

/ U 

i'l 

002! 

3E1F 

79 

NO I 

0023 

E3I.S 

80 

OUT 

0025 

3E40 

81 

MO I 

0027 

E3E9 

on 
u a. 

OUT 

0029 

3EFF 

83 

MV I 

002E 

E31.9 

84 

OUT 

002E 

FB 

85 

El 

002E 

C9 

86 

RET 


87 ; 



**v •nr 

/ 3 y 

“Vi li 

/ 4 > 

75 y 

76 y !?!{'!?)«!>•? if If ^ S' !f -r ?!? i? if i? INITIALIZE ZC)i-iTEOLi..Eii i I if -i' f <f if -.'i? 

if 


OlfsM, 
Ay : 
OI?H 
Ay I 
0:9H 


yllSAELE 80.3-; lA AIAAbf' IZ 
:CUI ySET NESTED AAIL :.ArEREyf:IZ 

yCAiLL Tr'iBLL 4 J f nrrii,. 

tCUZ ySEI CALL TyilLE Ai 40w0ii 

lASK IhASK all INTERRUrrC 

yEEFGRE LEAVIAG, INIZS/,,,. 
y REtHAwLl.'. 80iiw 
y RETURN FROH IN 1 25 1 


88 y 

89 y 

90 y)ii*ii'n.i'ii'iFii'!fif.i!ii'ir4if!?!f MASH SET ROUIINE ?:? ifififii'if ififii’if^.f .f -f-fifif^f if 

91 iMSKSFTI 

yH8VE IMSH Tu ACCUH 
yuUTFUT TO 8259 


y ij. 

9S y 


LDAX B 
OUT 0r;9M 
RET 


y T'lL I Uki i I" RUT! fToniiL 


0033 OA 

0034 FEOl 
0036 C'13B00 
0039 FB 
003A C9 
003B F3 
003C C9 


OOSIi OA 
003E D30S 


0040 C9 


004! 1;30? 
0043 C? 


93 yifii'iTiTifiT’f'S'ip^'if MASK ALL INTERRUi'TS RUbTIAL if^if if if if ifsi? if 

99 Iri.TSET! 

100 LT.AX E 

10 1 CPI OlH 

102 JNZ ESABLE 

103 El 

104 RET 

105 E8ABLE! tl 

106 RET 

107 y 

108 y 

109 y 


111 CZT5 

112 LDAX E 

113 OUT LOhEh 

AT ION 

114 RET 

115 y 

116 ; 

117 y 

118 nnnnum'kif-'k^ 

119 cztr: 


yPUT 

INi 

r .! 

./ 1 A n 

, 1 w' ALLLf 1 


ySEE 

IF 

,i n (.» i 

IS A 1 


ylF 

NOT' 

J'JHi' 



ylF 

A 1 

ENAI 

1 T .* T *•»; 

UU X n ( Ui'y 

R'li; I 

yANI. 

Rtr 

TURN 

f'fUjii Irti 

‘c)L ' 

ylF 

NOT 

A 1 

I- 1. L>Ai‘Lh 

1 v.lu’. 

yANE 

RE' 

TURN 

FROd liir 

oL. i 

INTEGRATION 

KOU t iist 

c ^ *F ^ 


mOVE N INTO ACCUTl 

y OUTPUT NUHEER Oi RLijul‘.>.'b AN*.' Li::ijL'x L'y ! ij-bR 

> RETURN FROM CZT 


•clh 1 1'.ANb! Li' i\bbl iiNu if f.' if if .f '!■ if' 'f '? 'f '!• f.* •!' >? I? 'f pf if f f y.' 


120 
121 

122 y 

123 y 


OUT BMA 
RET 


yOFArsT. If’lA .TRANSFER 
ii'iLilil'in IRON liuiR 


OF VOOM 


qUALXT^I 
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8000/8035 HAHRO A3SEMSLER» V3.0 


INir 


PAi»C 


LINE 


SOURCE STATEMENT 


0059 

005A 

005B 

005D 

005E 

00o>0 

0062 

0063 

OOo'r 

0066 

0068 

0069 
006A 
006C 
006D 
006E 
006F 

0070 

0071 

0072 

0073 
0076 
0078 
007A 
007C 
007F 
0081 
0083 
0035 
0087 


124 t 

125 nmmmmm* er 

. I 


1.26 IBIFHL 


PHASE-L uuE'ur ROUTiNL 


0044 1680 

127 

HUI 0f 80H 

JSET FYiE; COUNT Tu 12U 

0046 OA 

128 L8AE{ 

LEAX B 

tGET BYTE FidlH lAIA lUl CER 

0047 OF 

129 

RRC 

/‘SWAP NIBBLE... 

0043 OF 

130 

RRC 


0049 OF 

131 

RRC 


004A OF 

132 

fcRC 


004B E3E3 

133 

OUT E3255 

JWRITE BATA Tu 8255 

004E 76 

134 

HLT 

fWAIT FOR ACNNUk'LLT.GE 

004E 03 

135 EPLICRI 

INX B 

INCREMENT EATA BUTFER POINTER 

004F 3E20 

136 

HUI A/ EOI 

/SEND NON-SPKIIMw E(C',. OF INTS: 

0051 E3B8 

137 

OUT 0E8H 

fTO 8259 INTERRUPT CON TROLLER 

0053 FB 

138 

El 

; REENABLE 3030 INTERRUPT 

0054 15 

139 

ECR E 

/DECREMENT BYTE COUrU 

0055 C24600 

C 140 

JNZ LOAE 

/OUTPUT MORE DATA IT NOT EDiTE 

0053 C9 

141 

RET 

^RETURN FROM INTERRUPT SERUiCL 


RRUP 


R(3UiINE 


OA 

OF 

E67F 

3EEF 

D3I.9 

76 

r B 

3EE7 

D3T? 

76 

FB 

BSE9 

OF 

OF 

OF 

OF 

12 

13 

05 

CA7BOO 

3E20 

B3B3 

C36800 

3E20 

B3DS 

113118 

3EFF 

D3E9 

C9 


143 

144 

145 

1 46 

147 

148 
14? 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 
/ / 

178 

179 

180 

131 

182 

183 


NL'REAS INPUT ROUTINE 

NERDt 

;get icnt 


LBAX B 
RRC 
AN! 7FH 

wniJ - A 

Nv'I A» UNSYN 
OUT 0B9H 
HLT 
El 

NVI Af UNSTB 
OUT 0I'9H 
STB! HLT 
El 

IN BATA 

RRC 

RRC 

RRC 

RRC 

STAX E 
INX E 
ECR B 
JZ FNSH 
HU I Ar E0,[ 
OUT 0E8H 
JHP STB 

FNGHl HVI A> EIH 
OUT OESH 
OUT OlfSH 
HU I A» HACK 
OUT 0E9H 
RET 


H i.- i, 


UIEE ICNT BY 2 TO CHANGE TO EYl'!:. LOUR. 


JSIRIP OFF HSB 

Trkir TM li 

rl I XW}^ \ JU' 

HINHASK SYNC INTERRUPT 


5UAIT FOR SYNC 
5 REENABLE 8080 INTERRUPTS 
HJNHA8K STROBE INTERRUPT 

?UAIT FOR STROBE INTERRUPT 
/REENABLE 8080 INTERKUPT UPON RETURN 
5GET A BYTE OF EAT6 
/SLIAP 

i NIBBLES 
/ IN EACH 

r BYTii. 

/STORE IN lOBitJF 
/‘INCREHENT lOBUF POINTER 
JBECRENENT ICNT 
/JUHP IF ICNT 0 
/SENE ENE OF INTERRUPT 
5a.EUEL 3) 

5 GET MORE BATA 

H3ENE ENE OF INTERRUPT 

}(L.EUEL, 3) STROBE INTERRUPT 

/(LEUEL 4) SYNC INTB.RKUPT 

5MA3K ALL INTERRUrTB BEFORE RETURNING 

K 

?RETURN FRQH NEk: 


y 

f 

k 

f 4 4 4 It ^ if if !f ^ 4 )f 4 ^ !f If If ^ !f if ^ ^ S' If S ^ if !f if ^ ^ Ij 5f I? ip 4 If ^ 4 lii !f !p 1? $ if 4 S' If ^ 

/ ENE OF UTILITY ANE INITIALIZATION ROUTINES 

jiJil^i^iiiSiltipipitS'itS'ifipii'S'SifS'ipii'ipSififS'ifSifipS'SSipififipipipifipipipitipifitYS'ii'ifififYifSififipipSififipif 
^ It S' 4 if 

ENE 


PUBLIC SYMBOLS 
BPLISR C 004E 


CZT C 0031 


CZTR 


H'lPHL C 0044 I NX 259 0 0020 
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!;5I3-II 31)30/3035' fIriCRO AoSCHtLE,-:/ ^3,0 


rNiczT cooi? INTPIDCOOOO vi:sET c MN5LTI. oo:r , oo. 

FXTtRf^AL bt'.'1J0l.3 


USER SVfirrniS 
EPt TBR C 004£ 
D325: A OOEC 

r.SAEI,E C 003Fr 
IBIPHl, C 0044 
IfURIO C 0000 
LOABR A 0003 
NER5 C 003? 
UNSfi',' A OORF 


C3255 

£'3255 

EOI 

ICUi 

IN'TEA 

LSB 

oa’2 


A OOEB 
A 00E3 
A 0020 
A 00 IF 

A ooo: 

A OOOA 
A 0020 


KJ “/IT r 
wWU*..t^w 

I'ATO 

FILI- 

ICU2 

INTEF 

MASK 

STB 


A OOAo 
A OOt? 
A 000 > 
A OO-rO 
A 0005 
A OOi'",'' 


i" x i™.C’ 

ifr:25? 

INTSET 


UiiASK 


A 00y:» 
A oot: 
C 0020 
C 0035 
A OOOB 
A OOTT 


in:,:,:;:! 

,„OAI- 


ASSEMBLY COMPLETE/ NO ERROR'; 
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ASM80 {FUINTGT.SRC DEBUG 


ISIS-II 8080/8035 HACRO ASSEUBLERi V3.0 INTGT PAGE 1 


LOC OBJ 

LINE 

SOURCE STATEMENT 


1 

O i 

NAME INTGT 


/. f 

3 ? 

SUBROUTINE INTGK ICNT»TI»DELF) 


4 J 



f 

ICNT=IFIX<TI)iiDELFf0.5) 

0010 

6 ( 

7 FhDB 

EOU lOH 

0012 

S MULT 

EOU 12H 

OOIF 

9 FIX 

EOU IFH 


10 f 

11 EXTRN A«riOD,A«DC«r4lNT8TR^GIVE 

12 f 

13 PUBLIC INTGT 

14 i 

15 CSEG 

16 f 


0000 

El 


17 INTGTt 

POP 

H 

?SAVE RTN ADDR 

0001 

CDOOOO 

E 

18 

CALL 

AMDLOD 

fTI t 

0004 

42 


19 

MOV 

B»D 

0005 

4B 


20 

MOV 

CfE 


0006 

CDOOOO 

E 

21 

CALL 

AMDLOD 

JDELF t 

0009 

3E12 


22 

MVI 

A 1 MULT 

OOOB 

CDOOOO 

E 

23 

CALL 

AMDCMD 

»TUDELF 

OOOE 

112300 

C 

*34 

*«T 

LXI 

DfHALF 

0011 

CDOOOO 

E 

25 

CALL 

GIVE 

?0*S *, 

0014 

3E10 


26 

MVI 

A? FADD 


0016 

CDOOOO 

E 

27 

CALL 

AMDCMD 

JTI)j(DELF 1 *5 

0019 

3E1F 


28 

MVI 

AjFIK 

OOIB 

CDOOOO 

E 

29 

CALL 

AMDCMD 

>IFIXaiJitD£LFf.5) 

OOIE 

Cl 


30 

POP 

B 


OOIF 

CDOOOO 

E 

31 

CALL 

INTSTR 

fICNT= 

0022 

E9 


32 

PCHL 


fRETURN 




33 

A 

f 



0023 

00 


34 half: 

BB 

OOHyOOH 

rSOHyOOH 

0024 

00 




0025 

80 






0026 

00 







35 

36 END 


INTSTR E 0000 

FIX A OOIF GIVE E 0000 HALF C 0023 


PUBLIC SYMBOLS 
INTGT C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 

USER SYMBOLS 

AMDCMD E'OOOO AMDLOB E 0000 
INTGT C 0000 

INTSTR E 0000 MULT A 0012 


GIVE E 0000 


FADD A 0010 


ASSEMBLY COMPLETE » NO ERRORS 
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ASH80 {FmUSART*SRC DEBUG SYMBOLS XREF 


ISiS-n 8080/8085 MACRO ASSEMBLER^ V3*0 


lUSART PAGE 1 


LOC OBJ 


0004 3E27 
0006 D3CD 
0008 C9 


SOURCE STATEMENT 
NAME lUSART 

FUNCTION IS TO INITIALIZE THE PROTOTYPE USART 
REGISTERS ALTERED? C<A) 


CSEG 

PUBLIC 

MODE. 

CNCTL 

CMD 


14 lUSRTt 

15 


lUSRT 


A I MODE 
CNCTL 
A»CMD 
CNCTL 


fGET MODE SETTING „ 
f OUT-PUT IT TO THE USART 
JGET CMD 

f AND SEND IT OUT 


PUBLIC SYMBOLS 
lUSRT C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS . . 

CMD A 0027 CNCTL A OOCD 

ASSEMBLY COMPLETE » NO ERRORS 


lUSRT C 0000 


A OOCE 


J 


ASH80 {F1II32SUH.SRC DEBUG PAGELENGTH(75) 


ISIS-n 8080/8085 MACRO ASSEMBLER^ V3.0 


I32SUM PAGE 1 


LOG OBJ 


0008 

0012 

OOlC 

002C 


0000 

0001 

0002 

0003 

0006 

0007 

OQOA 

OOOD 

OOOF 

0012 

0015 

0017 

OOIA 

OOlC 

OOIF 

0022 

0025 

0027 

002A 

002B 

002E 


El 

lA 

57 

CDOOOO 

15 

CA1500 

CDOOOO 

3E2C 

CDOOOO 

C30600 

3E1C 

CDOOOO 

3E08 

CDOOOO 

112F00 

CDOOOO 

3E12 

CDOOOO 

Cl 

CDOOOO 

E9 


002F 00 

0030 00 

0031 AO 

0032 04 


LINE 


C 

E 

E 

C 


E 

C 

E 

E 

E 


6 f 

7 i 

8 LOG 

9 HIJUT 

10 FL0T32 

11 IADD32 

12 f 

13 

14 i 

15 

16 ( 

17 

18 ; 

19 I32SUMI 

20 
21 
22 

23 LOOP} 

24 

25 

26 

27 

28 

29 float: 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 ten: 


43 


SOURCE STATEMENT 
NAME I32SUM 
SUBROUTINE I32SUM( PXfNVf IV ) 

: : PX«104ALOG10( FLOAT< NV( 1 )+NV( 2 )f 


+NV( IV ) ) ) 


EQU 

EQU 

EQU 

EQU 


CSEG 

POP 

LDAX 

MOV 

CALL 

DCR 

JZ . 

CALL 

HVI 

CALL 

JMP 

MVI 

CALL 

MVI 

CALL 

LXI 

CALL 

MVI 

CALL 

POP. 

CALL 

PCHL 

k 


END 


OSH 

12H 

ICH 

2CH 


EXTRN I32L0IifAMDCHDfAMDSTR»GIVE 
PUBLIC I32SUM 


H 

D 

D>A 

I32L0D 

D 

FLOAT 

I32L0B 

A»IADri32 

AMDCMD 

LOOP 

AfFL0T32 

AMDCMD 

ArLOG 

AMDCMD 

DfTEN 

GIVE 

A » MULT 

AMDCMD 

AMDSTR 


JSAVE RETURN ADDRESS 

fGET COUNT 

fPUT IN D 

:L0AD FIRST ENTRY 

JIF LAST ENTRY GO TO FLOAT 

JSUM IN NEXT ENTRY 


f FLOAT RESULT 
fALOGlO(SUM) 

:io. t 

:i0.*AL0G10( SUM) 


JSAVE IN PX 
{RETURN 


OOHrOOHfOAOHf04H 


PUBLIC SYMBOLS 
I32SUM C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDSTR E 0000 

USER SYMBOLS 

AMDCMD E 0000 AMDSTR E 0000 
I32SUM C 0000 

IADD32 A 002C LOG A 0008 


GIVE E 0000 I32L0D E 0000 


FLOAT C 0015 
LOOP C 0006 


FL0T32 A OOlC GIVE E 0000 

MULT A 0012 TEN C 002F 


I32L0D f 


ASSEMBLY COMPLETE f NO ERRORS 




0000 
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FORTRAN CONPILER 


PAGE 1 


ISIS-n FORTRAN-80 MS.O COHPILATION OF PROGRAM UNIT KBPHAL 
OBJECT MODULE PLACED IN !F1 !KBPHAL.OBJ 

COMPILER INVOKED BY} F0RT80 } FI} KBPHAL .SRC DEBUG PAGELENGTH( 77 ) PACEWIDTH( 90 ) 


2 


6 

7 

8 
9 

10 

11 
12 


C 

c 

c 

c 

c 


c 

C 


SUBROUTINE KBPHAL(IOUT) 

turn HANDLES BI-PHASE-L OUTPUTS mmm 
INTEGER*! I0UTC128) 

} } SET MASK TO ALLOW LEVEL 1 INTERRUPTS } } 


}} 


}} 


JMOFDH 
CALL MSKSET(J) 

WRITE 
CALL 

SET MASK TO MASK ALL INTERRUPTS 
JMOFFH 


riiJIVDU I > M / 


}} 


» * 
9 9 


DO 10 J=l»128 
IOUT< J)=#099H 
10 CONTINUE 
RETURN 
END 


BUFFER LINE JUST WRITTEN WITH #099H }} 


MODULE INFORMATION} 

CODE AREA SIZE , = 004EH 78D 

VARIABLE AREA SIZE = 0004H 4D 

MAXIMUM STACK SIZE * 0002H 2D 

20 LINES READ 

0 PROGRAM ERROR< S ) IN PROGRAM UNIT KBPHAL 

0 TOTAL PROGRAM ERROR<S> 

END OF FORTRAN COMPILATION 
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ASM80 JFlfKEYCHK.SRC DEBUG 


I8IS-n 8080/8085 HACRO ASSEHBLERr 03,0 


KEYCHK PAGE 1 


LOG DBO 


LINE 


I I 


U 

n 

8 f 

9 

ir 

12 t 

13 

14 f 


SOURCE STATEHENT 
NAHE KEYCHK 

FUNCTION} SENSES KEYBOARD FOR AN ESCAPE CHARACTER. IF NO 
CHARACTER IS PENDING OR IF PENDING CHARACTER IS NOT 
AN 'ESC' I THEN NO ACTION IS TAKEN, IF 'ESC' IS FOUND 
p jp 'IKEYI' IS TAKEN TO SET THE MAIN PROGRAH 


PUBLIC 

EXTRN 

CSEG 


KEYCHK 
ECHO» IKEYI 


0000 DBCD 


15 KEYCHK} 

IN 

OCDH 

0002 EA02 


16 

ANI 

02H 

0004 CAICOO 

C 

17 

az 

XIT 

0007 DBCC 


18 

IN 

OCCH 

0009 E67F 


19 

ANI 

07FH 

OOOB FEIB 


20 

CPI 

01 BH 

OOOD C21C00 

C 

21 

JNZ 

XIT 

0010 4F 


22 

MOV 

C,A 

0011 CDOOOO 

E 

23 

CALL 

ECHO 

0014 CDOOOO 

E 

24 

CALL 

IKEYI 

0017 0E07 
0019 CDOOOO 

E 

25 

26 

MVI 

CALL 

G,07H 

ECHO 

OOlC C9 


27 XIT} 

RET 



28 

P 




29 

END 



fGET STATUS OF CONSOLE 
IRCMR READY? 

{ NO > THEN EXIT 
}YES» GET CHARACTER 
JSTRIP PARITY 
fIS IT 'ESC' ? 

I NO, THEN IGNORE 
{YES, SAVE VALUE 
{AND ECHO TO SCREEN 
{SET KEY INTERRUPT FLAG 
{GET BELL CHARACTER 
{SEND IT OUT 


PUBLIC SYMBOLS 
KEYCHK C 0000 

EXTERNAL SYMBOLS 
ECHO E 0000 IKEYI 


USER SYMBOLS 
ECHO E 0000 


E 0000 


IKEYI E 0000 
ASSEMBLY COMPLETE, NO ERRORS 


KEYCHK C 0000 


XIT C OOlC 


A3H30 {FJfKEYIH.SRC I'EIUG PAGELENGTHC77) 


rSIS-n 8030/8035 KACRO ASSEHSLERf M3*0 


KEYI« PAGE 1 


LOG or-j 


LINE 



? 

EXTRN 

ECHO 

0003 

8 BACK 

EQU 

08H 


? CR 


ODH 

0007 

10 BELL 

lou 

07H 


11 


f 

4: $ 


13 

U 

15 

16 




17 { 



0000 EB 


IS KEYBRDt 

XCHG 


0001 OA 


19 

LDAX 

B 

0002 57 


20 

MOV 

D*A 

0003 5F 


21 

MOV 

E*A 

0004 CD3C00 

C 

22 NEXT} 

CALL 

GETCH 

0007 FE03 


23 

CPI 

BACK 

0009 C22100 

C 

24 

JNZ 

SKIP! 

OOOC 7A 



MOV 

A*D 

OOOD BB 


26 

CMP 

E 

OOOE C2t900 
0011 0EO7 

C 

27 

JNZ 

BKSPC 


28 

MVI 

CfBELL 

0013 CCOOOO 

E 

29 

CALL 

ECHO 

0016 C30400 

C 

30 

JMP 

NEXT 

0019 14 


31 BKSPC} 

INR 

D 

OOIA 2B 


32 

DCX 

H 

00 IB CDOOOO 

E 

33 

CALL 

ECHO 

OOIE C30400 

C 

34 

JMP 

NEXT 

0021 FEOD 


35 SKIPl} 

CPI 

CR 

0023 C23200 

C 

36 

JNZ 

SKIP2 

0026 CDOOOO 

E 

37 

CALL 

ECHO 

0029 3E20 


38 

MVI 

A*' ' 

002B 77 


39 FILL.} 

MOV 

M*A 

002 c 23 


40 

INX 

H 

002D 15 


41 

DCR 

D 

002E C22B00 

C 

42 

UNZ 

FILL 

0031 C9 


43 

RET 


0032 CDOOOO 

E 

44 SKIP2} 

CALL 

ECHO 

0035 71 


45 

MOV 

H*C 

0036 23 


46 

INX 

H 

0037 15 


47 

DCR 

D 

0038 C20400 

C 

4S 

JNZ 

NEXT 

003B C9 


49 

RET 




50 { 



003C CD4300 

C 

51 GETCH} 

CALL 

Cl 

003F E67F 


52 

ANI 

07FH 

0041 4F 


53 

MOV 

C*A 

0042 C9 


54 

RET 




55 } 



0043 PBCr. 


56 cn 

IN 

OCDH 

0045 E602 


57 

ANI 

02H 

0047 CA4300 

C 

53 

JZ 

Cl 

004A DBCC 


59 

IN 

OCCH 

004C C9 


60 

RET 



SOURCE STATEHENT 
NAHE KEVIN 

PUBLIC KEYBRt»GETCH»CI 
CSEG 


)HEX VALUE OP 'BS' 

J 'CR' 

I BELL CHARACTER 

KEVBOARB INPUT ROUTINE FOR SCAT PROCESSOR 

REGISTERS UPON INPUT} 

(BC)bABBR of CHARACTER COUNT TO BE ENTERED 


f BUFFER POINTER TO HL 
}GET CHARACTER COUNT 
{CHARACTER COUNT TO B 
^LENGT^ OF STRING TO E ALSO 
fC(C)aC(A>a'CHAR' 

{BACK SPACE? 

{IF NOT SKIP 
{START OF LINE? ^ 

{IF SO* THEN 'BLEEP^ AND IGNORE 

{IF NOT BACK SPACE POINTERS AND CURSOR 

{GET BELL CHARACTl-R 


{BACK SPACE 
{POINTER 

{ALSO ECHO ASCII BACKSPACE TO CONSOLE 

{CARRIAGE RETURN? 

{IF NOT SKIP 

{IF SO* THEN ECHO CR 4. LF 

{ALSO* FILL OTHER BUFFER SPACE UITH BLANKS 

{STEP POINTER 

{RETURN WHEN FINISHED 
{ECHO CHARACTER 
{PUT IT INTO BUFFER 

{DECREMENT COUNTER 
{LOOP UNTIL END 0- BUFFER 


IGET CHAR FROM TERMINAL 
{STRIP OF PARITY 
{PUT VALUE IN C REG 


{GET STATUS OF CONSOLE 
{RCVR BUFFER READY? 

{ IF NOT * TRY AGAIN 
* IF YES * GET CHARACTER 


62 


END 


PUBLIC SYMBOLS 
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ISIS-II 3030/3035 fiACftO ArsSrHREKf V3.0 KEYI?^ PAGE 2 


ni 


C 0043 


EXTERNAL SYM&OLS 
ECHO E 0000 

USER SYUSOLS 
BACK A 0003 
FILl C 002B 
GETCH C 003C 


GETCH C 003C 


BELl, A 0007 
KEYBRE C OOOO 


ASSriMBl.Y COHPlETEr NO ERRORS 


KEYBRE C 0000 


EKSPC C 0019 
NEXT C 0004 


Cl C 0043 
SKIPl C 0021 


CR A OOOE 
SKT.P2 C 0032 


ECHO 


L 0000 


ASM80 {F1{LDJHP8*SRC DEBUG h(GELENGTH( 75 ) PAGEWIDTH( VO ) 


ISIS-II 8080/8085 HACRO ASSEUBLERf V3,0 LDJHPS PAGE 1 


LOG OBJ 


LINE 


SOURCE STATEMENT 


1 

ry * 

3 PUBLIC 

4 ; 


NAME LBJMPS 
LIiJMPS 


4000 

6 EXTRN 

ASE6 

CZTINT 

7 

ORG 

4000 C30000 E 

8 

JMP 

4003 00 

9 

NOP 

4004 C9 

10 

ORT A2 

RET 

4005 00 

11 

NOP 

4006 00 

12 

NOP 

4007 00 

13 

NOP 

4008 C9 

14 

RET 

4009 00 

15 

NOP 

400A 00 

16 

NOP 

400B 00 

17 

NOP 

400C C9 

18 

n 

RET 

4000 00 

19 


400E 00 

20 


400F 00 

21 


4010 C9 

22 


4011 00 

23 


4012 00 

4013 00 

24 


25 


4014 C9 

26 


4015 00 

27 


4016 00 

28 


4017 00 

29 


4018 C9 

30 


4019 00 

31 


401A 00 
401B 00 

32 


33 


401C C9 

34 


401D 00 

35 


401E 00 

36 


401F 00 

37 


4020 C9 

38 LDJMPS : 

39 

RET 

END 


4000H 

CZTINT 


fLEVEL 0 INTERRUPT! CZT INTEGRATION TIMER 
fLEVEL 1 INTERRUPT! BI-PHASE-L! PARALLEL P 

{LEVEL 2 INTERRUPT! BUSS I NT 2 

{LEVEL 3 INTERRUPT!STR0BE! PARALLEL PORT B 

{LEVEL 4 INTERRUPT!SYNC! BUSS INT 1 
{LEVEL 5 INTERRUPT! GND 
{LEVEL 6 INTERRUPT! GNU 
{LEVEL 7 INTERRUPT! GND 


PUBLIC SYMBOLS 
LDJMPS A 4020 

EXTERNAL SYMBOLS 
CZTINT E 0000 

USER SYMBOLS 
CZTINT E 0000 


LBJMPS A 4020 


ASSEMBLY COMPLETE! NO ERRORS 


FORTRAN COMPILER 
PAGE 


1 


T 


ISIS-II FORTRAN-OO U2»0 COMPILATION OF PROGRAM UNIT HFLAG 

OBJECT MODULE PLACED IN JFl JMFI.AG»OBJ 

COMPILER INVOKED BYl F0RT80 {FHMFLAG.SRC DEBUG 


4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


C 

C 

C 


I 

C 


SUBROUTINE HFLA6( ICi IOF» IOUT» IB >NZ ) 

MOVES FLAG DATA WORDS TO OUTPUT LINE 

INTEGERIl I0F(5)rI0UTn28) 

INTEGER*2 IB>N2»IG 

m% IDsBAND IDENT» NZ-POLARIZ IDENT 
**** ICaCQL COUNTER 

IOF*FLAG WORD DUFFER f lOUT^OUTPUT BUFFER 
DO 10 1=1 

IOUT( IC~1H)=I0F(I) 

10 CONTINUE 

IOUT( IC+5)=IB 
I0UT( ICF6 )“NZ 

DO 20 K=IC1-7»128 
IOUT( K )=*ODDH 
20 CONTINUE 

RETURN 

END 


%%%%% 


MODULE INFORMATION} 

CODE AREA SIZE = OOAEH 174D 

VARIABLE AREA SIZE = OOOEH 14D 

MAXIMUM STACK SIZE = 0006H <i.D 

23 LINES READ 

0 PROGRAM ERROR(S> IN PROGRAM UNIT MFLAG 

0 TOTAL PROGRAM ERROR/ S ) 

END OF FORTRAN COMPILATION 
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«r 


FORTRAN COMPILER 
PAGE 


ISIS-II FORTRAN-80 V2.0 COMPILATION OF PROGRAM UNIT MFPNUM 

OBJECT MODULE PLACED IN JFl {MFPNUM^OBJ 

COMPILER INVOKED BY{ FORTOO 5 FI {MFPNUM. SRC DEBUG 


1 

2 

3 


4 

5 

6 

7 

8 

9 

10 

11 

12 


cm 

c 

c 

c 


C { 


c 

c 


INTEGER*! IBCD(4 )fI0UTa28»70 ) 

NK SPECIFIES HOW MANY NBRS TO CONVERT L MOVE 

UP TO 8 FLTG POINT NBRS CAN BE HANDLED 

DO 30 Kal»NK 
FP-FF'NBR( K ) 

IF< FP.LT.-99.9)Fps-99.9 
IF(FP.GT.99.9) Fpa99,9 
INUM-IFIX<FP*10. ) 

{ : { { : { SET SIGN OF NBR 

IBCD<4)=10 
IF<INUM.GE.O)GO TO 5 
IBCD(4)=14 
INOM«~INUM 


{{ 


* * » 
4 » » 


4 4 4 
4 4 4 


{{{{ UNPACK INTO BCD DIGITS 


4 4 4 
4 4 4 


13 

5 

DO 10 J=l»2 

14 


IH=(INUM/10)*10 

15 


IBCD( J)=INUM"IH 

16 


INUM=IH/10 

\l 

10 

p 

f8®§^INU« 


u 

p 4 4 4 

If 4 4 4 

p 

PACK INTO BI-PHASE-L OUTPUT 

19 

If 

15 

DO 20 L=lr2 

20 


INDX=IC!)L~lf<K”l)*2+L 

21 


J=1F< L-1 )*2 

22 


IBCD< J >=IBCD( J )*16+IBCD( J +1 > 

23 


IOUT< INDX f IBPT( K > )«IBCD( J > 

24 

20 

CONTINUE 

25 

30 

CONTINUE 

26 


RETURN 

27 


END 


4 4 4 
4 4 4 


MODULE INFORMATION! 
CODE AREA SIZE 


01D2H 


VARIABLE AREA SIZE = OOIEH 
MAXIMUM STACK SIZE = 0008H 
38 LINES READ 


U6U 

30D 

8D 


0 PROGRAM ERROR< S ) IN PROGRAM UNIT MFPNUM 
0 TOTAL PROGRAM ERROR<S) 
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FORTRAN COMPILER 

PAGE 2 


END OF FORTRAN COMPILATION 


ASH80 {FUMINHR,SRC DEBUG PAGELENGTW 75 ) PAGEWIDTH( 90 ) 


ISIS-II 8080/8085 HACRO ASSEMBLER^ U3,0 HINHR PAGE 1 


LOG OBJ 


LINE 


SOURCE STATEMENT 


1 i 


006C 

006E 


3 

4 

5 

6 

7 

8 
9 

10 
11 

12 I AD 

13 IHULT 
1 “4 f 

15 IXTRN 

16 


SUBROUTINE MINHRdHHpNUfNTfllO) 
NAME MINHR 

EVALUATES MINUTES OR HOURS BYJ 

IMH=NT*nO+NU 

UHERE I 10s 10 


EOU 

EQU 


6CH 

6EH 


INTLOD r AMDCMD » AMDSTR f AMDLOD p INTSTR 
PUBLIC MINHR 




18 

CSEG 





19 f 




0000 El 


20 MINHR { 

POP 

H. 

fSAVE RETURN ADDRESS 

0001 CDOOOO 

E 

21 

CALL 

INTLOD 

fNT t 

0004 42 


22 

MOV 

B>D 


0005 4B 


23 

MOV 

CrE 


0006 CDOOOO 

E 

24 

CALL 

INTLOD 

fllO t 

0009 3E6E 


25 

MVI 

ArlMULT 


OOOB CDOOOO 

E 

26 

CALL 

AMDCMD 

»X 

OOOE Cl 


27 

POP 

B 


OOOF CDOOOO 

E 

28 

CALL 

INTLOD 

fNU t 

0012 3E6C 


29 

MVI 

AflAD 


0014 CDOOOO 

E 

30 

CALL 

AMDCMD 

f + 

0017 Cl 


31 

POP 

B 


0018 CDOOOO 

E 

32 

CALL 

INTSTR 

5SAVE IN IMH 

OOIB E9 


33 

PCHL 


» RETURN 



34 

* 

f 





35 

END 




9k 


PUBLIC SYMBOLS 
MINHR C 0000 

EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 


USER SYMBOLS 
AMDCMD E 0000 
INTLOD E 0000 


AMDLOD E 0000 
INTSTR E 0000 


ASSEMBLY COMPLETE » NO ERRORS 


AMDSTR E 0000 INTLOD E 0000 INTSTR E 0000 

AMDSTR E 0000 lAD A 006C IMULT A 006E 

MINHR C 0000 


ASM80 tm0UTPUT»SRC XREF DEBUe PAGELENGTH< 53 ) 


ISIS-II 8080/8085 MACRO ASSEMBLERr V3»0 


OUTPUT PAGE 1 


LOC OBJ 


0000 EB 

0001 OA 

0002 47 

0003 4E 

0004 CDOOOO 

0007 23 

0008 05 

0009 C20300 

OOOC DBCD 
OOOE EA02 

0010 CA1500 
0013 DBCC 
0015 C9 


LINE 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

U 

12 

13 

14 

15 

16 

17 

18 
19 


SOURCE STATEMENT 
NAME OUTPUT 
CSEG 

PUBLIC MSGOUT 
EXTRN CO 
FUNCTION} 

OUTPUTS A CHARACTER STRING TO THE CRT OR CONSOLE 
LOGGING DEVICE AT PORT LOCATION OCCH. 

REGISTERS} 

C(BC)=ADDRESS OF CHARACTER COUNT TO SEND 
C( BE >=ABDRESS OF BUFFER CONTAINING THE STRING 

REGISTERS ALTERED} 

C<HL)r C<BC)» C<A) 


20 MSGOUT} XCHG JSET POINTER TO BYTE BUFFER 

21 LDAX B fGET COUNT FROM ADDR IN <BC) 

22 MOV B>A JSET COUNTER OF BYTES 

23 GBYT} MOV C»M »GET A CHARACTER 

E 24 CALL CO JSENB IT OUT 

25 INX H fSTEP BUFFER POINTER 

26 DCR B JDROP ONE FROM COUNTER 

C 27 JNZ GBYT »IF NOT DONE » GET NEXT BYTE 

28 i CLEAR KEY BUFFER 

29 IN OCDH fGET STATUS 

30 Aul 02H fCHECK FOR PENDING CHARACTER 

C 31 JZ XIT fIF NOT CONTINUE 

32 IN OCCH fGET CHARACTER 

33 XIT} RET fRETURN TO CALLING ROUTINE 

34 f 

35 END 


PUBLIC SYMBOLS 
MSGOUT C 0000 


EXTERNAL SYMBOLS 


Omii^AL KiGf: 

0^ i*00li QUAtriY 
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ISIS-n 8080/8085 HACRO ASSEMBLERr V3*0 


OUTPUT 


PAGE 2 


CO 


E 0000 


USER STHBOLS 

CO E 0000 GBYT C 0003 
ASSEHBLY COHPLETEr NO ERRORS 


MSGOUT C 0000 XI T 


C 0015 
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ASM80 {FKPCPN*SRC DEBUG PAGELENGTW 7S ) PAGEWlDTHt 90) 


ISIS-n 8080/8085 HACRO ASSEHBLERf V3.0 PCPN PAGE 1 


LOG OBJ LINE SOURCE STATEHENT 




1 ) 
i ^ 

3 

4 1 

SUBROUTINE PCPN( PN » T I » PC » TC » ALT » VEL ) 



NAME 

PCPN 





l§H 


|0H 


0013 


8 DIV 

EQU 

13H 

1 


0017 


9 ENTR 

EQU 

17H 

1 


0019 


10 EXCH6 

11 f 

EOU 

19H 

1 




12 

EXTRN 

AMDLOD 




13 

14 

EXTRN 

EXTRN 

AMDSTR 

AHDCMD 




15 

EXTRN 

GIVE 




16 i 







17 

PUBLIC 

PCPN 




18 f 







19 

CSEG 






20 f 





0000 El 


21 PCPNt 

IZ. 

H 


JSAVE RETURN ADDRESS 

0001 CDOOOO 

E 

22 

AMDLOD 

)ALT t 

0004 42 


23 

MOV 

BfD 

0005 4B 


24 

MOV 

C»E 


0006 CDOOOO 

E 

25 

CALL 

AMDLOD 

)VEL t 

sm 

E 

If 

MVI 

CALL 

SftDciiD 

W 

OOOE 3E17 


28 

MVI 

A » ENTR 

0010 CDOOOO 

E 

29 

CALL 

AHDCMD 

ft 

0013 Cl 


30 

POP 

B 



0014 CDOOOO 

E 

31 

CALL 

AMDLOD 

)TC t 

0017 3E13 


32 

MVI 

A>DIV 

0019 CDOOOO 

E 

33 

CALL 

AHDCMD 

f/ 

OOlC Cl 


34 

POP 

B 



OOID CDOOOO 

E 

35 

CALL 

AMDSTR 

tSAVE IT IN PC 

0020 Cl 


36 

POP 

B 


0021 CDOOOO 

E 

37 

CALL 

AMDLOD 

fTI t 

0024 3E19 


38 

MVI 

ArEXCHG 

0026 CDOOOO 

E 

39 

CALL 

AHDCMD 

f EXCHANGE XfY 

0029 3E13 


40 

MVI 

A>DIV 

002B CDOOOO 

E 

41 

CALL 

AHDCMD 

)/ 

002E 113EOO 

C 

42 

LXI 



0031 CDOOOO 

E 

43 

CALL 

Gll 

f»5 t 

0034 3E12 


U 

MVI 

A » MULT 

0036 CDOOOO 

E 

CALL 

AHDCMD 

JX 

0039 Cl 


46 

POP 

B 



003A CDOOOO 

E 

47 

CALL 

AMDSTR 

fSAVE IT IN PN 

003D E9 


48 

PCHL 



f RETURN 

003E 00 


49 f 





50 HALF} 

DB 

OOH»OOH>80HfOOH 


003F 00 

0040 80 

0041 00 


51 

END 





PUBLIC SYMBOLS 
PCPN C 0000 

EXTERNAL SYMBOLS 

AHDCMD E 0000 AMDLOD E 0000 


USER SYMBOLS 


AMDSTR E 0000 


GIVE E 0000 
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ISIS-II 8080/8085 HACRO ASSEHBLERf V3*0 


6HDCMD E 0000 
EXCHG A 0019 


Pi» WWW 

onSV- M019 
PORT A OOFO 

ASSEMBLY COMPLETE » 


GIVE E 0000 


i ^ 


A 0013 


A 0012 


ENTR 

PCPN 


A 0017 
C 0000 


NO ERRORS 
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FORTRAN COMPILER 

PAGE I 


ISIB-II rORTRAN-80 V2.0 COMPILATION OF PROGRAM UNIT PRIVLU 
OBJECT MODULE PLACED IN IFUPRTVLU.OBJ , 

COMPILER INVOKED BYI FORTBO !F1 5PRTVLU.SRC DEBUG 


SUBROUTINE PRTVLU( CRrIR»N»IERR»X ) 

PRINTS MESSAGE OF N CHARACTERS ALREADY IN, „ 
BUFFER IR* NEXTr PRINTS VhLUE OF A FLOATING 
POINT NUMBER IN F10.3 FORMAT LOCATED IN X» 

NOTEt N.LE.30 

INTEGERS! IR<30)vN 
CHARACTERS30 CR 

CALL CRLF 

CALL HSGOUT(N>IR) 

WRITER CR»lO»£Rf^^20)X 
FORMATS F10*3(20X) 

CALL MSG0UT(N»IF;) 

RETURN 

I ERRS 1 
GO TO 15 


MODULE INFORMATION! 

CODE AREA SIZE = OOPIH U5B 

VARIABLE AREA SIZE = OOIEH 30B 

MAXIMUM STACK SIZE « 0008H 8D 

22 LINES READ 

0 PROGRAM ERROR(S) IN PROGRAM UNIT PRTVLU 

0 TOTAL PROGRAM ERRORS S) 

END OF FORTRAN COMPILATION 


ASM80 IFIIRESTRT.SRC DEBUG 


ISIS-n 8080/8085 HACRO ASSEHBLERf M3.0 


DUAIT PAGE I 


LOG OBsl 


SOURCE 8TATEHENT 
NAHE DWAIT 
CSEG 

EXTRN CO»CRLF»DELAY 
PUBLIC DWAIT 
FUNCTIONS 

LINKAGE ROUTINE FOR FORTRAN ERROR RECOVERY. 
CONTROL REMAINS HERE UNTIL THE MACHINE IS RESET, 


CDOOOO 

060F 

0E2A 

CDOOOO 

0E07 

CDOOOO 

CDOOOO 

05 

C20500 

CDOOOO 

C31600 


DWAIT { CALL CRLF 

MVI BfOFH 

LOOP} MVI C»'*^ 

CALL CO 

MVI C»07H 

CALL CO 

CALL DELAY 

DCR B 

JNZ LOOP 

LP2t CALL DELAY 

JMP LP2 


»SET COUNT 
JGET 

^OUTPUT 'r 
{INSERT BELL CHAR 
{SEND IT TO CRT 

{WAIT AWHILE , ALTERS C(A)f C<C) 

{COUNT 
{ DOWN 
{DELAY AND 

{ WAIT HERE FOR RESET OR INTERRUPT 


PUBLIC SYMBOLS 
DWAIT C 0000 

EXTERNAL SYMBOLS 

CO E 0000 CRLF E 0000 

USER SYMBOLS 

CO E 0000 CRLF E 0000 


DELAY E 0000 


DELAY E 0000 DWAIT C 0000 LOOP C 0005 


ASSEMBLY COMPLETE » NO ERRORS 
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FORTRAN COHPILER 
PAGE 


iSIS-n FORTRAN-80 V2»0 COMPILATION OF PROGRAM UNIT RUNLMT 


^^olfM*^^^i?Jlj8LMT,SRC DEBUG 


3 

4 

5 


8 

9 

10 

11 

12 

13 

14 

15 

16 

If 

2i 


24 

25 


C 

C 

C 


SUBROUTINE RUNLHT( PREV» lOVER ) 

DIMENSION PREV<5)»PARM(5) 

LOGiCAL LZfUZ 
COMMON Tlr FARM » BMW 

*** ROUTINE PERFORMS RUNNING LIMIT CHECK ON A/C DATA *1* 

IF<IOVER(1),NE»0)GO TO 10 
ALsPREVU )-15.24 
AUspREVa )+15»24 
LZs( PARM<1)*LT,AL) 

UZs( PARM(l).eT*AU) 

IF( LZ . OR , UZ )PARM( I )®PREU( 1 > 

10 CONTINUE 
DO 20 L«2»4 

IF(IOVER(L).NE.O) GO TO 20 
ALspREVa)"0.0873 
AU=PREV(L)F0,0873 


on 


28 


30 


LZ 

UZ 


iSKflli 


).LT,AL) 


_),bT»AU) 

IF( LZ » OR * UZ >PARM( L )sPREU( L ) 
CONTINUE 

IF(IOUER(5)*NE.O)GO TO 30 

IFl^jj^l^OR , UZ )PARM( 5 )=PREV( 5 ) 
END ^ 


MODULE INFORMATION} 

CODE AREA SIZE = OlAEH 430D 

VARIABLE AREA SIZE « OOlOH 16D 

MAXIMUM STACK SIZE « 0004H 4D 

31 LINES READ 

0 PROGRAM ERROR(S) IN PROGRAM UNIT RUNLMT 

0 TOTAL PROGRAM ERROR(S) 

END OF FORTRAN COMPILATION 
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ASH80 IFIITIHEFP.SRC DEBUG PAGELENGTH( 75 ) PAGEWIDTH( 90 ) 


I8I8~n 8080/8085 HACRO ASSEMBLER* V3»0 


TIMEFP PAGE i 


LOG OBJ 


LINE 


SOURCE STATEMENT 

SUBROUTINE TIMEFP( TliFlO* IT8*F60»IM* IH*I60 ) 


0012 
0013 
0010 
006C 
006E 
00 ID 


5 ; 

! 

» 

8 i 

9 I 

}? ^ 

11 > 

12 } 

13 MULT 

14 BIV 

15 AD 

16 I AD 

il W 

19 { 

20 EXTRN 

21 f 

22 PUBLIC 

23 f 

24 CSEG 

9F, J 


NAME TIMEFP 

COMPUTES FLOATING POINT VALUE OF TIME IN SECONDS BY{ 


WHERE I60»60r F60s60.*AND FIO^IO. 



Tlsf 

EQU 

12H 

FQU 

m 

EQU 

101- 

EQU 

6C^ 

EQU 

6E^ 

EQU 

IDH 


INTLOD * AMDCMD * AMDSTR * AMDLOD 
TIMEFP 


0000 El 


26 TIMEFP t 

POP 


{SAVE RETURN ADDR 

0001 CDOOOO 

E 

27 

CALL 

INTLOD 

flH t 

0004 42 


28 

MOV 

B*D 

0005 4B 


29 

MOV 

CfE 


0006 CDOOOO 

E 

30 

CALL 

INTLOD 

»I60 t 

0009 3E6E 


31 

MVI 

AflMULT 

OOOB CDOOOO 

E 

32 

CALL 

AMDCMD 

IX 

OOOE Cl 


33 

POP 

B 


OOOF CDOOOO 

E 

34 

CALL 

INTLOD 

JIM t 

0012 3E6C 


35 

MVI 

AflAD 

0014 CDOOOO 

E 

36 

CALL 

AMDCMD 

J4 

0017 3E1D 


37 

MVI 

A* FLOAT 


0019 CDOOOO 

E 

38 

CALL 

AMDCMD 

f FLOAT 

OOlC Cl 


39 

POP 

B 


OOID CDOOOO 

E 

40 

CALL 

AMDLOD 

JF60 t 

0020 3E12 


41 

MVI 

AfMULT 

JX 

0022 CDOOOO 

E 

42 

CALL 

AMDCMD 

0025 Cl 


43 

POP 

D 


0026 CDOOOO 

E 

44 

CALL 

INTLOD 

JITS t 

0029 3E1D 


45 

MVI 

A f FLOAT 


002B CDOOOO 

E 

46 

CALL 

AMDCMD 

JFLQAT 

002E Cl 


47 

POP 

B 


002F CDOOOO 

E 

48 

CALL 

AMDLOD 

JFIO 1 

0032 3E13 


49 

MVI 

AfDIV 


0034 CDOOOO 

E 

50 

CALL 

AMDCMD 

J/ 

0037 3E10 


51 

MVI 

A>AD 


0039 CDOOOO 

E 

52 

CALL 

AMDCMD 

J+ 

003C Cl 


53 

POP, 

B 

JSAVE AT T1 
J RETURN 

003D CDOOOO 

E 

54 

CALL 

AMDSTR 

0040 E9 


55 

PCHL 




56 

« 

f 





57 

END 




PUBLIC SYMBOLS 
TIMEFP C 0000 

EXTERNAL SYMBOLS 


241 


ISIS-n 8080/8085 MACRO ASSEMBLER! V3.0 


TIHEFP PAGE 


AMDCMD E 0000 

AMDLOD E OOOO 

AMDSTR E 0000 

INTLOD E 0000 

USER SYMBOLS 
A 0010 

ftsifp ? ml 

AMDCMD E 0000 
lAD A 006C 

» 1 

1 mi 

ASSEMBLY COMPLETE! NO ERRORS 




ASH80 {FmHP12*SRC DEBUG 


ISIS~II 8080/8085 MACRO ASSEMBLER » 03. 0 


TMP12 PAGE 1 


LOG OBJ 


0017 

0012 


LINE 

1 

i 

4 

1 

7 


( 

A 

r 

A 

9 

I 

PUSHT 


SOURCE STATEMENT 
NAME TMP12 

SUBROUTINE TMP12< TMP1»VEL»X12) 

TMPl=X12*<VELi|ii|i2)» WHERE X12=XK1 OR XK2 




8 MULT 


EQU 

EQU 


17H 

12H 




9 f 

11 

12 PUBLIC 

13 f 

AMDLOB f AMDCMD 1 AMDSTR 



TMP12 





14 CSEC 

15 f 




0000 El 


16 TMP125 

POP 

H 

fSAVE RTN ADDR OFF STACK 

0001 CDOOOO 

E 

17 

CALL 

AMDLOD 

fVEL t 

0004 3E17 


18 

MOI 

A » PUSHT 

0006 CDOOOO 

E 

19 

CALL 

AMDCMD 

JVEL t 

0009 3E12 


20 

MVI 

A » MULT 


OOOB CDOOOO 

E 

21 

CALL 

AMDCMD 

{VEDKVEL 

OOOE 42 


22 

MOV 

BfD 


OOOF 4B 


23 

MOV 

C»E 


0010 CDOOOO 

E 

24 

CALL 

AMDLOD 

>XK1 OR XK2 f 

0013 3E12 


25 

MVI 

A f MULT 


0015 CDOOOO 

E 


CALL 

|MDCMD 

}X12!i«VEL)K*2) 

0018 Cl 


27 

POP 


0019 CDOOOO 

E 

28 

CALL 

AMDSTR 

JTMPl = « 

OOlC E9 


29 

PCHL 


} RETURN 



30 

A 

f 





31 

END 




YHBOLS 
12" C 0000 

EXTERNAL SYMBOLS 

AMIiCMD E 0000 AMDLOB E 0000 

USER SYMBOLS 

AMDCMD E 0000 AMDLOB E 0000 
ASSEMBLY COMPLETE » NO ERRORS 


AMDSTR E 0000 
AMDSTR E 0000 


MULT A 0012 PUSHT A 0017 


TMPi: 


hKiii QVALyrt 


i 'ri * 


C 00 
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ASM90 {FltTRMl.SRC DEBUG PAGELENGTH( 75 > 


ISIS-II 8080/8085 HACRO ASSEMBLER? V3»0 TRMi PAGE 1 

LOG OBJ LINE SOURCE STATEMENT 

1 . NAME TRMI 

3 I SUBROUTINE TRMl(TlrBMW?ANG»ALT»RL) 

4 f 

I tt\ Tl-2 **TAN( BMW/2 * )*(ALT»*2)/C0S<RL)/C0S(ANG) 


0017 

7 PUSHT 

EQU 

17H 

0003 

8 COS 

EQU 

03H 

0012 

9 MULT 

EQU 

12H 

0010 

10 FADB 

EQU 

lOH 

0013 

11 FDIU 

EQU 

13H 

0004 

12 TAN 

EQU 

04H 


13 f 

14 EXTRN AMDLOD?AHDCMDfAMDSTR?GIVE 

15 } 

16 PUBLIC TRMI 

17 f 

18 CSEG 

19 f 


0000 El 


20 TRMU 

POP 

H 

fHOLD RTN ADDR 

0001 

CDOOOO 

E 

21 

CALL 

AMDLOD 

fALT t 

0004 

3E17 


22 

MMI 

A f PUSHT 

fALT t 

0006 

CDOOOO 

E 

23 

CALL 

AMDCMD 

0009 

3E12 


24 

MVI 

A? MULT 

>ALT*ALT 

OOOB 

CDOOOO 

E 

25 

CALL 

AMDCMD 

OOOE 

42 


26 

HOU 

B?D 


OOOF 

4B 


27 

MOV 

C?E 


0010 

CDOOOO 

E 

28 

CALL 

AMDLOD 

fRL t 

0013 

3E03 


29 

MVI 

A? COS 

}COS< RL):ALT**2t”-t- 

0015 

CDOOOO 

E 

30 

CALL 

AMDCMD 

0018 

3E13 


31 

MVI 

AiFDIV 

f(ALT**2)/C0S< RL)t-{-{ 

OOIA 

CDOOOO 

E 

32 

CALL 

AMDCMD 

OOID 

Cl 


33 

POP 

B 


OOIE 

CDOOOO 

E 

34 

CALL 

AMDLOD 

fANG t 

0021 

3E03 


35 

MVI 

A? COS 

JCOS< ANG):(ALT.,.){-J- 

0023 

CDOOOO 

E, 

36 

CALL 

AMDCMD 

0026 

0028 

3E13 

CDOOOO 

E 

37 

38 

MVI 

CALL 

AfFDIV 

AMDCMD 

{<(ALT*»* >/COS( ANG>:-{ 

002B 

Cl 


39 

POP 

B 

;bmw t 

002C 

CDOOOO 

E 

40 

CALL 

AMDLOD 

002F 

115300 

C 

41 

LXI 

DfTUO 

f2* t 

0032 

CDOOOO 

E 

42 

CALL 

GIVE 

0035 

3E13 


43 

MVI 

AfFDIV 

}bmw/2.:(alt»».ang) 

0037 

CDOOOO 

E 

44 

CALL 

AMDCMD 

003A 

3E04 


45 

MVI 

AfTAN 

fTAN< BMW/2. >:<ALT.... ) 

003C 

CDOOOO 

E 

46 

CALL 

AMDCMD 

003F 

3E12 


47 

MVI 

A f MULT 

}TAN< ..)*< ALT... ) 

0041 

CDOOOO 

E 

48 

CALL 

AMDCMD 

0044 

3E17 


49 

MVI 

A f PUSHT 

fTAN< ..»K< ALT...);TAN< 

0046 

CDOOOO 

E 

SO 

CALL 

AMDCMD 

0049 

3E10 


51 

MVI 

AfFADD 


004B 

CDOOOO 

E 

52 

CALL 

AMDCMD 

f2.)KTAN< ,. mALT..) 

004E 

Cl 


53 

POP 

B 


004F 

CDOOOO 

E 

54 

CALL 

AMDSTR 

}T1= " 

0052 

E9 


55 

PCHL 


fRETURN 



56 

* 



0053 

00 


57 two: 

DB 

OOHfOOH 

i80Hf02H 

0054 

00 






0055 

80 






0056 

02 


58 

* 

f 






59 

END 
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iSIS-n 8080/8085 MACRO ASSEMBLER » V3.0 


TRMl PAGE 2 


PUBLIC SYMBOLS 
TRMl C 0000 





EXTERNAL SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 

AMDSTR E 0000 

GIVE 

E 

0000 

USER SYMBOLS 

AMDCMD E 0000 AMDLOD E 0000 
GIVE E 0000 

MULT A 0012 PUSHT A 0017 
ASSEMBLY COMPLETE r NO ERRORS 

AMDSTR E 0000 

COS 

A 

0003 

Tr^' A 0004 

TRMl 

C 

0000 


FAim A 0010 

TWO C 0053 




FHIV A 
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ASH80 {F1{TRH23*SRC DEBUG PAGELENGTH( 75 ) 


ISlS-n 8080/808S HACRO ASSEilBLERi V3»0 TRM23 PAGE 1 


LOG 

OBJ 


LINE 

SOURCE STATEMENT 





NAME 

TRM23 




§ 1 
A. t 

SUBROUTINE TRM23( TRM»TMP1 f RL»DR ) 

>)/? 



4 9 

5 f 

{t TRM«( 

-TAN( DR )*TAN( RL HSQRT( TAN< RL miU TMPl-l * )4TMP1*C0S( DR )** 




(1*-TMPUC0S( DR >#JK2)» 




6 ; 
7 f 



WHERE TRM = TRM2 OR TRM3 OF AREA EQUATION 

0017 

0012 



8 PUSHT 

9 HULT 

EQU 

EQU 

17H 

12H 

0011 



10 FSUB 

EQU 

IIH 

0010 



11 FADD 

EQU 

lOH 

0001 



12 SORT 

EQU 

OlH 

0004 



13 TAN 

EQU 

04H 

0003 



14 COS 

EQU 

03H 

0019 



15 XCHF 

EQU 

19H 

0013 



16 FDIV 

EQU 

13H 




17 f 







18 EXTRN 

AMDLOD f AMDCMD » AHDSTR f GET f G I ME 




19 f 







20 PUBLIC 

TRM23 





21 f 

22 CSEG 

23 i 




0000 

0001 

El 

220000 

D 

24 TRH23J 

25 

POP 

SHLD 

ISAVE JIN^IN^^RnSl^BUFFER 

0004 

EB 


26 

XCHG 

fHOLD CY OF DR ADDR IN RP<HL) 

0005 cnoooo 

E 

27 

CALL 

AMDLOD »RL t 

0008 

OOOA 


E 

28 

29 

MVI 

CALL 

AMDCMD fTAN(RL) 

OOOD 

3E17 


30 

MVI 

AfPUSHT 

OOOF 

CDOOOO 

E 

31 

CALL 

AMDCMD JTAN<RL)tTAN<RL)J~t~ 

AMDCMD " t " 5TAN(RL){- 

0012 

CDOOOO 

E 

32 

CALL 

0015 

110200 

D 

33 

LXI 

D»ISAVE+2 

0018 CDOOOO 

E 

34 

CALL 

GET {SAVE CY OF TAN(RL) 

OOIB 

3E12 


35 

MVI 

A » MULT 

OOID 

CDOOOO 

E 

36 

CALL 

AMDCMD {TAN(RL»K1|12 

0020 

Cl 


37 

POP 

B 

0021 

CDOOOO 

E 

38 

CALL 

AMDLOD fTMPl t 

0024 

3E17 


39 

MVI 

A » PUSHT 

0026 

CDOOOO 

E 

40 

( 

:all 

AMDCMD .{TMPl ITMPl tTAN( RL »Ki|c2{ - 

0029 

110600 

D 

41 

1 

-XI 

D»7.SAVE+6 

GET {SAVE CY OF TMPl 

002C 

CDOOOO 

E 

42 

CALL 

002F 

11C600 

C 

43 

LXI 

DfONE 

0032 

CDOOOO 

E 

44 


:all 

GIVE {1* t 

0035 

3E11 


45 


ivi 

A f FSUB 

0037 

CDOOOO 

E 

46 


:all 

AMDCMD {<TMP1-1. >{TAN< RL ))K*2{-{- 

003A 

3E12 


47 


m 

ArMULT 

003C 

CDOOOO 

E 

48 


:all 

AMDCMD {(TMPl-1, mAN< RL 

003F 

11C600 

C 

49 


-XI 

DfONE 

0042 

CDOOOO 

E 

50 


:all 

GIVE {!♦ t 

0045 

3E11 


51 


MVI 

A » FSUB 

0047 

CDOOOO 

E 

52 


CALL 

AMDCMD {(TMPl *»2 >-!.{“{ -L- 

004A 

44 


53 


MOV 

B«H 

004B 

4D 


54 


MOV 

CfL 

004C 

CDOOOO 

E 

55 


CALL 

AMDLOD {DR t 


E 



SUL 

AfCgS 

AMDCMD {COS(DR) 

0054 

3E17 


58 


MVI 

A » PUSHT 

0056 

CDOOOO 

E 

59 


CALL 

AMDCMD {COSDICOSDKTMPl..* ){-{- 

0059 

3E12 


60 


MVI 

A f MULT 

005B 

CDOOOO 

E 

61 


CALL 

AMDCMD {(C0S(DR))K*2){(TMP1... ,){“•{“ 

005E 

3E17 


62 


MVI 

A f PUSHT 


246 


ISIS-n 8080/8085 MACRO ASSEMBLER r V3*0 TRM23 PAGE 2 


LQC OBJ 


LINE 


SOURCE STATEMENT 



0060 CDOOOO 

E 

63 


CALL 

AMDCMD 

f C0SD*)H2 { C0SD*1K2 1< TMPl . ♦ . ) 1 “ 


0063 llOAOO 

D 

64 


LXI 

D»ISAVF.+10 


0066 CDOOOO 

E 

65 


CALL 

GET 

fSAVE CY OF COS< DR »t!)li2 


0069 110600 

D 

66 


LXI 

DfISAVEI6 


006C CDOOOO 

E 

67 


CALL 

GIVE 

JTMPl t 


006F 3E12 


68 


MVI 

A » MULT 


0071 CDOOOO 
0074 3E10 

E 

69 

70 



msE 

fTMPl*C0SD**2:( M.) 


0076 CDOOOO 

E 

71 


CALL 

AMDCMD 

f((TAN!»*2 - 


0079 3E01 


72 


MUI 

A » SORT 


007B CDOOOO 

E 

V, 


CALL 

AMDCMD 

fSQRT(**» ) 


007E 42 



MOV 

BfD 


007F 4B 


75 


MOV 

CfE 



0080 CDOOOO 

E 

76 


CALL 

AMDLOD 

fDR t 


0083 3E04 


77 


MVI 

A>TAN 


0085 CDOOOO 

£ 

78 


CALL 

AMDCMD 

fTAN< DR) 


0088 110200 

D 

79 


LXI 

DiISAVE+2 


008B CDOOOO 

E 

80 


CALL 

GIVE 

fTAN(RL) t 


008E 3E12 


81 


MVI 

AfMULT 


0090 CDOOOO 

E 

82 


CALL 

AMDCMD 

fTANR4TANDtSQRT( .»* ) 


0093 3E11 


83 


MVI 

A f FSUB 


0095 CDOOOO 

E 

84 


CALL 

AMDCMD 

fSQRT< ..)"TANR*TAND 


0098 110600 

D 

85 


LXI 

D»ISAVE+6 


009B CDOOOO 

E 

86 


CALL 

GIVE 

fTMPl t 


009E llOAOO 

D 

87 


LXI 

D»ISAVE+10 


OOAl CDOOOO 

E 

88 


CALL 

GIVE 

fC0S<DR)**2 f 


00A4 3E12 


89 


MVI 

AfMULT 



00A6 CDOOOO 

E 

90 


CALL 

AMDCMD 

f(TMPl*C0SD4)K2>{SQRT< )t-{- 


00A9 11C600 

C 

91 


LXI 

DfONE 



OOAC CDOOOO 

E 

92 


CALL 

GIVE 

fl» t 


OOAF 3E19 


93 


MVI 

A f XCHF 


OOBl CDOOOO 

E 

94 


CALL 

AMDCMD 

f<TMPl».. >:i»{SORT( 


00B4 3E11 


95 


MVI 

A f FSUB 



00B6 CDOOOO 

E 

96 


CALL 

AMDCMD 

fl»“< TMPl., >{SQRT( .» ) 


00B9 3E13 


97 


MVI 

AfFDIV 


OOBB CDOOOO 

E 

98 


CALL 

AMDCMD 

f(SORT<.*)-TAN( ».))/<!. 


OOBE Cl 


99 


POP 

B 



OOBF CDOOOO 

E 

100 


CALL 

AMDSTR 

fTRMl = " 


OOC2 2A0000 

D 

101 


LHLD 

ISAVE 



00C5 E9 


102 


PCHL 

fRETURN 




103 


» 




00C6 00 


104 ONE! 

DB 

OOHfOOHi 

rSOHfOlH 


00C7 00 
00C8 80 
00C9 01 


105 


* 

f 






106 DSEG 







107 


* 

r 




0000 


108 

I SAVE*. 

DS 

14 





109 

* 

f 






110 


END 




PUBLIC SYMBOLS 
TRM23 C 0000 








EXTERNAL SYMBOLS 







AMDCMD E 0000 

AMDLOD 

E 0000 

AMDSTR E 0000 

GET E 0000 GIVE E 0000 


USER SYMBOLS 








AMDCMD E 0000 
FSUB A 0011 
GET E 0000 

AMDLOD E 0000 

AMDSTR E 0000 

COS A 0003 FADD A 0010 

FDIV 

GIVE 

E 0000 

I SAVE 

D 0000 

MULT A 0012 ONE C 00C6 

PUSHT 

SORT A 0001 







TAN A 0004 


TRM23 

C OOOO 

XCHF 

A 0019 




A 001 
A 001 


ISIS-n 8080/8085 HACRO ASSEHELER» V3.0 


TRH23 


PACE 3 


LOG OBJ LINE SOURCE STATEMENT 

ASSEMBLY COMPLETE » NO ERRORS 


(f 
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ASH30 IFUTSECS*SRC DEBUG PAGELENGTH< 75 ) PAGEWIDTHC 90 ) 


ISIS-n 8080/8085 HACRO ASSEMBLER^ V3»0 TSECS PAGE 1 


LOC OBJ 


LINE 

SOURCE STATEMENT 




1 f 

SUBROUTINE TSECS( ITSj ITN» IHD» lUN ) 



jS P 

3 

A £ 

NAME 

TSECS 




■T P 

5 p 

A i 

EVALUATES SECONDS BYt 



o P 

7 » 

8 ( 


ITS«10)|(ITNfl0*IHD HIUN 

006C 


9 i 

10 lAD 

EQU 

6CH 


006E 


11 IMULT 

ins 

EQU 

6EH 




XZ p 

13 

EXTRN 

INTLOD , AMDCMD » AMDSTR » AHDLOD t INTSTR 



14 

1 2 

PUBLIC 

TSECS 




XD P 
16 

CSEG 





17 } 




0000 El 


18 TSECS 1 

POP. 


{SAVE RETURN ADDR 

0001 CDOOOO 

E 

19 

CALL 

INTLOD 

{IHD t 

0004 013200 

C 

20 

LXI 

B»TEN 


0007 CDOOOO 

E 

21 

CALL 

INTLOD 

{10 t 

OOOA 3E6E 


22 

MVI 

A » IMULT 


OOOC CDOOOO 

E 

23 

CALL 

AMDCMD 

{X 

OOOF Cl 


24 

POP 

B 


0010 CDOOOO 

E 

25 

CALL 

INTLOD 

{ITN 

0013 3EAC 


26 

MVI 

AflAD, 


0015 CDOOOO 

E 

27 

CALL 

AMDCMD 

H 

0018 013200 

C 

28 

LXI 

BfTEN 


OOIB CDOOOO 

E 

29 

CALL 

INTLOD 

{10 t 

OOIE 3E6E 


30 

MVI 

A » IMULT 


0020 CDOOOO 

E 

31 

CALL 

AMDCMb 

{X 

0023 42 


32 

MOV 

BfD 


0024 4B 


33 

MOV 

C»E 


0025 CDOOOO 

E 

34 

CALL 

INTLOD 

{lUN t 

0028 3E6C 


35 

MVI 

AflAD 


002A CDOOOO 

E 

36 

CALL 

AMiOCMD 

{ + 

002D Cl 


37 

POP 

B ^ 


002E CDOOOO 

E 

38 

CALL 

INTSTR 

{SAVE RESULT IN US 

0031 E9 


39 

PCHL 


{RETURN 



40 } 




0032 OAOO 


41 ten: 

DU 

10 




42 

END 



PUBLIC SYMBOLS 






TSECS C 0000 






EXTERNAL SYMBOLS 





AMDCMD E 0000 


AHDLOD E 0000 

AMDSTR E 0000 

INTLOD E 0000 INTSTR 

USER SYMBOLS 






AMDCMD E 0000 


AMDLOD E 0000 

AMDSTR E 0000 

lAD A 006C IMULT 

INTLOD E 0000 


INTSTR E 0000 

TEN 

C 0032 

TSECS C 0000 


ASSEMBLY COMPLETE » NO ERRORS 


0000 

OOAE 
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ASH80 {Fi {UNPACK, SRC r*r,BUG PAGELF.NGTH^77) PAGEWlCru^ 90 ) 


ISIS~II 8030/8085 HACRO ASSEMBLER# V3,0 


Unpack page i 


LOG OBJ 


LINE 


1 

2 f 

3 } 
* « 

t 

f 


SOURCE STATEMENT 
NAME UNPACK 


FUNCTION} 


5 

6 
7 
S 
9 


UNPACKS 53 
C< BC )«=AIf£iR 
C( BE )=ABDR 


NIBi) 


OF NERBAS BATA INTO 

OF NIBS f INPUT BUFFER} ANB 
OF BriESy OUTPUT BUFFER, 


re 


TES. 


PUBLIC 
} 

CSEQ 


UNPACK fRR4B 


0000 


10 } 




03 

11 UNPACK} 

INX 

B 

fSKIP FIRST 2 MBSr FRAME 1 
}S£T BTTE COUNTER = Vii 

0001 

261B 

12 

MUI 

HjOIBH 

0003 

OA 

13 

LDAX 

B 

}GET SYNC NIB 3 AND FRAME i 

0004 

12 

14 

15 

16 STEP} 

STAX 

A 

i'NX 

D 

} STORE AT BITE 1 LOCATION 

0005 

03 

B 

}SET POINTERS TO NEXT 
iBYTE? STARTING AT NIB S 

0006 

13 

17 

INX 

D 

000? 

OA 

13 

LBAX 

B 

IGET BYTE IN ACCOM 
fSAUE A CY IN RiE) 
f STRIP our UPPER NIB 
{ROTATE ACCOM 4 BITS RIGHT 

0003 

6F 

19 

MOO 

L» A 

0009 

E6F0 

20 

ANI 

OFOH 

OOOB 

CB1900 

C 21 

CALL 

RR4B 

OOOE 

12 

Am Am 

STAX 

B 

{SAVE UPPER NIB 

OOOF 

13 

23 

INX 

D 

{ADVANCE ADDR POINTER 

0010 

7D 

24 

MOO 

A»L 

{GF.T NEC CY OF BtTL 

0011 

E60F 

25 

ANI 

OFH 

{STRIP our LOUER NIB 
{SAVE AT NEXT BiTE LOC 

0013 

12 

26 

STAX 

D 

0014 

25 

9*7 

Am i 

BCR 

H 

{SUB 1 FROM BYTE CUUkT 
{LOOP TILL BONE 

0015 

C20500 

C 28 

JNZ 

STEP 

0018 

C9 

29 

RET 

0019 


30 

} 



OF 

31 RR4B} 

RRC 


{ROTATE 

OOIA 

OF 

32 

RRC 


{ACCUM 

OOIB 

OF 

33 

RRC 


{RIGHT 

OOlC 

OF 

34 

RRC 


H POSITIONS 

OOID 

C9 

35 

RET 


{THEN RETURN 



36 

END 



PUBLIC 

SYMBOLS 





RR4B 

C 0019 

UNPACK C 0000 





SYNC PART 
NBR 


EXTERNAL SYMBOLS 


USER SYMBOLS 

RR4B C 0019 STEP C 0005 UNPACK C 0000 
ASSEMBLY COMPLETE f NO ERRORS 
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r URTRAN' CUfiinLER 

PAGE 1 


IS1S*II FORTRAN-80 V2.0 CONflLAnON OF PROGRAM UNIT VALIB 

OBJECT MODULE PLACED IN !F1 1 VALKUOBJ 

COMPILER INVOKED BY! FORT80 ! PI {VALID. SRC DEBUG 


SUBROUTINE VALID( DLiDFrlOV^IVALyPARM ) 

mmi VALIDATES NERDA3 DATA VALUES UNLESS THE CVER*I:IDE FLAG IS 
SET, IF VALUE IS OUTSIDE FRESEI LIHITSj TIC DCFAULT VALUE IS USED. 
UHENEVER DEFAU,.! VALUES ARE USED AN APPROTRIATC FlAG IS SET. 

INTEGER*! IOV(S;yIVAL 
B I MENS ION DL( 5 y 2 ) y DF ( S ) » PARMC S ) 

LOGICAL L2?UZ 

*** FARM IS AN ORDERED SETt ALTyDRFyROLyPCHyVEi, 

IVAL=0 

KK=16 

DO 20 K=ly5 
IDFG=0 

IF(IOV(K).NE.O) GO TO 1C 
LZ^(PARM<K),GE.DL(Kyl)) 

UZs< PAR«(K).LE.DL(Ky2)) 

IF(LZ,AND.UZ)GO TO 10 
PARM( K )=DF( K ) 

IDFG=1 

10 CONTINUE 

IFaDFG.NE,0)IVALsIVALFKK 
KK=KK/2 
20 CONTINUE 
RETURN 


MODULE INFORMATIONS 

CODE AREA SIZE = OlOAH 26Sf,i 

VARIABLE AREA SIZE = 0012H 13D 

MAXIMUM STACK SIZE = 0006H 6U 

29 LINES READ 

0 PROGRAM ERRORIS) IN PROGRAM UNIT VALII 

0 TOTAL PROGRAM ERRORS S ) 

END OF FORTRAN COMPILATION 
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ASH80 JFUVELFP.SRC DEBUG PAGELENGTH( 75 ) PAGEWIDTHC90) 


ISIS-n 8080/8085 MACRO ASSEMBLER » V3,0 


VELFP PAGE 1 


LOC OBJ 


LINE 


0013 

0012 

006C 

006E 

OOID 


2 

3 

4 

’i 

7 

8 
9 

i? 

12 

13 

14 

15 

16 
17 

19 

20 
21 


SOURCE STATEMENT 

SUBROUTINE UELFP( VEL»CMELrITNiIHD»IUN ) 
NAME VELFP 

COMPUTES VELOCITY IN HETERS/SECOND** 

VELsFLOAK IUN+10*( ITN+10*IHD ) )»CvlEL 
WHERE CVEL*0.514 


DIV 

MULT 

lAD 

IMULT 

FLOAT 

EXTRN 

PUBLIC 

CSEG 


EUU 

EQU 

EQU 

EQU 

EQU 


13H 

12H 

6CH 

6EH 

IDH 


INTLOD , AMDCMD » AMDSTR » AMDLuD 
VELFP 


0000 El 


23 VELFPJ 

POP 

H 

fSAVE RETURN ADDR 

0001 CDOOOO 

E 

24 

CALL 

INTLOD 

>IHD t 

0004 014000 

C 

25 

LXI 

BiTEN 


0007 CDOOOO 

E 

26 

CAl 

-L 

INTLOD 

{10 t 

OOOA 3E6E 


27 

MV] 

[ 

A » IMULT 


OOOC CDOOOO 

E 

28 

CALL 

AMDCMD 

{X 

OOOF Cl 


29 

POP 

B 


0010 CDOOOO 

E 

30 

CALL 

INTLOD 

flTN 

0013 3E6C 


31 

MVI 

ArlAD 


0015 CDOOOO 

E 

32 

CALL 

AMDCMD 

{■f 

0018 014000 

C 

33 

LXI 

BrTEN 


OOIB CDOOOO 

E 

34 

CALL 

INTLOD 

{10 t 

OOIE 3E6E 


35 

MVI 

A » IMULT 


0020 CDOOOO 

E 

36 

CALL 

AMDCMD 

{X 

0023 42 


37 

MOV 

BrD 


0024 4B 


38 

MOV 

c»e 


0025 CDOOOO 

E 

39 

CALL 

INTLOD 

{lUN t 

0028 3E6C 


40 

MVI 

AflAD 


002A CDOOOO 

E 

41 

CALL 

AMDCMD 

{ + 

002D 3E1D 


42 

MVI 

A » FLOAT 


002F CDOOOO 

E 

43 

CALL 

AMDCMD 

{FLOAT 

0032 Cl 


44 

POP 

B 


0033 CDOOOO 

E 

45 

CALL 

AMDLOD 

{CVEL t 

0036 3E12 


46 

MV; 

[ 

A » MULT 


0038 CDOOOO 

E 

47 

CA 

± 

AMDCMD 

{X 

003B Cl 


48 

PO 


B 


003C CDOOOO 

E 

49 

CA 

-L 

AMDSTR 

{SAVE RESULT IN VEL 

003F E9 


50 

PC 



{RETURN 

0040 OAOO 


51 TEN** 

DW 


10 




52 

END 



PUBLIC SYMBOLS 







VELFP C 0000 







EXTERNAL SYMBOLS 






AMDCMD E 0000 

AMDLOD E 0000 

AMDSTR E 0000 

INTLOD E 0000 

USER SYMBOLS 







AMDCMD E 0000 

AMDLOD E 0000 

1 

AMDSTR E 0000 

DIV A 0013 

lAD A 006C 


IMULT A 006E 


INTLOD E 0000 

MULT A 0012 


FLOAT A OOID 
TEN C 0040 
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ISIS-n 8080/8085 HACRO ASSEMBLER^ V3*0 VELFP 

VELFP C 0000 

ASSEMBLY COMPLETE » NO ERRORS 




PAGE 2 
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ASH80 {F1IXK12.SRC DEBUG PAGELEKGTH( 75 ) PAGEUIDTHC90) 

ISIS-n 8080/8085 MACRO ASSEMBLER^ V3*0 XK12 PAGE 1 


Loc ngj 

LINE 

SOURCE STATEMENT 


1 

2 i 

4 } 

5 f 

NAME 

XK12 ; 


SUBROUTINE XK12< XK2i XK1»SLMDA»BNDW»FD0P ) j 


t{{ 


0017 

8 PUSHT 

ECU 

17H 

0012 

9 FMUL 

EGU 

12H 

0019 

0013 

1? 

EQU 

EGU 

19H 

13H 

0010 

12 FADD 

EQU 

lOH 

0011 

13 FSUB 

EQU 

IIH 

0018 

r 

EQU 

18H 


15 } 

U . EXTRN AMDLODrAMDSTR»AMDCMDfINTLOD»INTSTR»GIVE»GET 

18 ' PUBLIC XK12 

19 f 

20 CSEG 

21 ; 


0000 El 


i 

22 XK12J 

POP 

H 

fPULL RETURN ADDR OFF STACK 
fBNDW t 

0001 CDOOOO 

E 

23 

CALL 

AMDLOD 

0004 3E17 


24 

KVI 

A » PUSHT 

0006 CDOOOC 

E 

25 

CALL 

AMDCKD 

JBND«IBNDW{~-5~- 

0009 D5 


26 

PUSH 

D 

OOOA 117BOO 

C 

27 

LXI 

DrTWO 


OOOD CDOOOO 

E 

28 

CALL 

GIVE 


0010 3E13 


29 

MVI 

ArFDIV 


0012 CDOOOO 

E 

30 

CALL 

AMDCKD 

>BNDW/2{BNDW:“”I- 

0015 Cl 


31 

POP 

B 

0016 CDOOOO 

E 

32 

CALL 

AMDLOD 

>FDOP t 

0019 3E10 


33 

MVI 

A » FADD 

OOIB CDOOOO 

E 

34 


AMDCMD 

f BNDW/2FFD0P1BNDW 

OOIE 3E17 


35 

A » PUSHT 

0020 CDOOOO 

E 

36 

CALL 

AMDCMD 


0023 CDOOOO 

E 

37 

CALL 

AMDCMD 

f BNDW/2FFD0P { BNDW/2+FD0P 1 BNDW/2f FDOP { BNDW 

0026 3E18 


38 

KVI 

A>ROL 

0028 CDOOOO 

E 

39 

CALL 

AMDCMD 


002B CDOOOO 

E 

40 

CALL 

AMDCMD 


002E CDOOOO 

E 

41 

CALL 

AMDCMD 

J BNDW {BNDW/2FFD0P { BNDW/2+FD0P { BNDU/2FFD0P 

0031 3E11 


42 

KVI 

A » FSUB 

0033 CDOOOO 

E 

43 

CALL 

AMDCMD 

;FD0P-BNDU/2{FD0P+BNDW/2{FD0P+BNDW/2{— 

0036 117B00 

C 

44 

LXI 

[If TWO 

0039 CDOOOO 

E 

45 

CALL 

GIVE 

12 t 

003C Cl 
003D CDOOOO 

E 


POP 

CALL 

AMDLOD 

f SLMDA t 

0040 3E13 


48 

KVI 

A»FDIV 

0042 CDOOOO 

E 

49 

CALL 

AMDCMD 

i 2/SLMDA J FDOP-BNDW/2 t FDOPf BNDU/2 { — 

0045 3E17 


50 

KVI 

A 1 PUSHT 

0047 CDOOOO 

E 

51 

CALL 

AMDCMD 

i 2/SLMDA ; 2/SLMDA 5FDOP-BNDW/2 tFDOP+BNDW/2 

004A 3E18 


52 

KVI 

AfROL 


004C CDOOOO 

E 

53 

CALL 

AMDCKD 


004F 3E19 


54 

KVI 

AfEXCHG 


0051 CDOOOO 

E 

55 

CALL 

AMDCMD 

JFDOP-BNDW/2 { 2/SLMDA t FDOPFBNDW/2 { 2/SLMDA 

0054 3E13 


56 

KVI 

AfFDIV 

0056 CDOOOO 

E 

57 

DA5-“ 

58 

CALL 

AMDCMD 

>'2/( SLMDA*( FD0P~BNDW/2 ) ){FD0P+BNDW/2{2/SLM 

0059 3E17 


KVI 

A » PUSHT 


005B CDOOOO 

E 

59 

CALL 

AMDCMD 


005E 3E12 


60 

KVI 

A f FMUL 


0060 CDOOOO 

E 

61 

CALL 

AMDCMD 

f4/< SLMDA*( FDOP-BNDW/2 ) m2{FD0PFBNDW/2;2/ 



SLMDA/ 

2l—{ — 
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ISIS-n 8080/8085 HACRO ASSEMBLER > V3.0 


XK12 


PAGE 2 


LOC OBJ 


LINE 

00A3 Cl 


62 

0064 CDOOOO 

E 

63 

?uioo 

E 

ti 

006C 3E17 


66 

006E CDOOOO 

E 

A7 

oozi llotoo 

E 

6? 

0076 Cl 


70 

0077 CDOOOO 
007A E? 

E 

71 

007B 00 
007C 00 
007D 80 
007E 02 


74 TWO 


75 


PUBLIC SYMBOLS 
XK12 C 0000 

AhDLOD E OOOO 
INTLOD E 0000 IMTSTR E 0000 


USER SYMBOLS 
AMDCMD E 0000 
FDIV A 0013 
INTLOD E 0000 
XK12 C 0000 


AMDLOD 

FMUL 

INTSTR 


0000 

0012 

0000 


ASSEMBLY COMPLETE f NO ERRORS 


SOURCE STATEMENT 


POP 

MUI 

K 

POP 

CALL 

PCHL 


AMDCMD 

ArPUSHT 

B 

AMDSTR 


JSAVE RESULT IK XKl 
i 2/{ SLMDAK FDOP+BNDW/2 )){-}-{ 

HA 8LMDA*(FD0PFBNDW/2 ) )l*2{“-? 
JSAVE RESULT IN XK2 


DB OOHfOOH>80H>02H 




END 


AMDSTR E 0000 

GET 

E 0000 

GIUE 

E 0000 

AMDSTR E 0000 

EXCHG 

A 0019 

FADD 

A 0010 

FSUB A 0011 

GET 

E 0000 

GIVE 

E 0000 

PUSHT A 0017 

ROL 

A 0018 

TWO 

C 007B 


255 


1 


I8IS-II ASSEHBLER SYMBOL CROSS REFERENCE» V2»l 


PAGE 1 



[U^Akr 

lUSRT 

KOBE 


12 « 

ill 

1 

8 

101 


17 


141 

14 


CROSS REFERENCE COMPLETE 


256 


ISIS-n ASSEMBLER SYMBOL CROSS REFERENCE i V2*l 


ASCDV 

5 

21* 

CO 

29 

66* 

CCO 

37 

44* 

CPO 

39 

41 52? 

CPI 

46 

it. ^ 

CP2 

54 

57* 68 

DC 

27 

36* 

DVERIF 

1 


GC 

25* 

33 

STP 

31* 

64 69 

STPO 

30* 

42 50 

CROSS REFERENCE COiiPLE\E 


6i* 


55 


63 


ISIS~n ASSEHBLER SVHBOL CROSS REFERENCEr V24 
CO 7 24 


JT 
OUTPUT 
XIT 


1 

31 


CROSS REFERENCE 


ilt 

33# 

COMPLETE 


PACE 1 


258 


APPENDIX E 


AMC 95/6511 Device Routine Listings 


ASH80 {FUAMDCMD*SRC DEBUG 


ISIS~n 8080/8085 MACRO ASSEMBLER^ 03,0 


AMDCMD 


LOC OBJ 


SOURCE STATEMENT 

{ROUTINE TO SEND A COMMAND IN THE A REGISTER TO THE AMC ?5/60ll 


ERRORS ARE 
1 ) 


TREATED IN THE FOLLOWING MANNER! 




13 

NAME 

AMDCMD 



14 { 




15 { 



OOFO 


16 PORT 

EQU 

OOFOH 

0018 


17 PULL 

18 { 

EQU 

18H 



19 

PUBLIC 

AMDCMD 



20 { 





21 

CSEG 




22 { 



0000 F5 


23 AMDCMDt 

PUSH 

PSW 

0001 DBFl 


24 BZY! 

IN 

P0RT41 

0003 B7 


25 

ORA 

A 

goo^ pjOlOO 

C 

26 

27 

JM 

POP 

BZY 

PSW 

0008 D3F1 


28 

OUT 

PORTFl 

OOOA F5 


29 

PUSH 

PSW 

OOOB DBFl 
OOOD B7 


30 BUSY! 

31 

IN 

ORA 

P0RT41 

A 

OOOE FAOBOO 

C 

32 

JM 

BUSY 

0011 D5 


33 

PUSH 

D 

0012 5F 


34 

MOV 

ErA 

0013 E61E 


35 

AN I 

lEH 

0015 CA4800 

C 

36 

JZ 

NOERR 

0018 3E18 


37 

MVI 

A f PULL 

OOIA E3F1 


38 

OUT 

PORT+1 

OOlC 7B 


39 

MOV 

AfE 

OOID E61E 


40 

ANI 

lEH 

OOIF FE08 


41 

CPI 

OSH 

0021 CA3EOO 

c 

42 

JZ 

UNDFLO 

0024 E604 


43 

ANI 

04H 

0026 C23E00 

c 

44 

JNZ 

UNDFLO 

0029 3EFF 


45 

MVI 

AfOFFH 

002B 1603 


46 

MVI 

D»03 

002D D3F0 


47 LOOP! 

OUT 

PORT 

002F 15 


48 

DCR 

D 

0030 C22D00 

c 

49 

JNZ 

LOOP 

0033 7B 


50 

MOV 

AfE 

0034 17 


51 

RAL 


0035 E680 


52 

ANI 

80H 

0037 F63F 


53 

ORI 

3FH 

0039 D3F0 


54 

OUT 

PORT 


UNDERFLOW 

SSfSlSk^^Y ZERO 
SORT OR LOG OF A 
NEGATIVE NUMBER 
ARGUMENT OF INVpSE 
TRIG, OR EXP OUT 
OF RANGE 


RESULT - 
RESULT = 


RESULT 


21163 


2**63 


{SAVE COMMAND 
{WAIT TILL NOT BUSY 


{GET COMMAND 
{SEND COMMAND 
{SAVE COMMAND 

{WAIT TILL NOT BUSY < COMMAND DONE) 


{SAVE DE REGISTER PhIR 

{STRIP OUT ERROR FLAGS 
{JUMP ON NO ERROR 

{PULL BAD VALUE OFF AMD STACK 

{GET STATUS BACK 

{STRIP OUT ERROR FLAGS 

{SORT OR LOG OF NEG NUMBER = UNDFLO 

{UNDERFLOW 

{TREAT ALL OTHER ERRORS AS OVERFLOW 


{GET ERROR FLAGS 
{GET SIGN 

{MAKE MAX EXP WITH PROPER SIGN 
{SEND TO BOARD 


260 


I3IS-II 8080/8085 MACRO ASSEMBLER » 03*0 


AMDCMD PAGE 


LOC 

OBvI 


LINE 

003B 

C34800 

C 

55 

003E 

3E00 


56 

0040 

1604 


57 

0042 

D3F0 


58 

0044 

15 


59 

0045 

C24200 

C 

60 

0048 

D1 


61 

0049 

FI 


62 

004A 

C9 


63 




64 

PUBLIC 

SYMBOLS 



AMDCMD 

C 0000 




EXTERNAL SYMBOLS 


SOURCE STATEMENT 


UNDFLO { 

JMP 

NOERR 

MVI 

ArOOH 

MV I 

!.*04 

LOOP25 

OUT 

PORT 


DCR 

D 


JNZ 

L00P2 

NOERRl 

POP 

D 

POP 

PSW 


RET 



END 



J UNDERFLOW » THEN SEND ZERO TO THE BOARD 


USER SYMBOLS 

AMDCMD C 0000 BUSY C OOOB 
PORT A OOFO 

PULL A 0018 UNDFLO C 003E 


B2Y C 0001 LOOP C 002D L00P2 C 0042 


NOEKR C 0043 


ASSEMBLY COMPLETE » NO ERRORS 


261 


ASH80 tFl{AMDSTR»SRC DEBUG 


ISIS-n 8080/8085 MACRO ASSEMBLER^ V3*0 


AMDSTR 


LOC OBJ 


SOURCE STATEMENT 

{ROUTINE TO STORE A FLOATING POINT NUMBER (IN INTEL FORMAT) 

{ FROM THE AMC 95/8011 INTERNAL REGISTER AT THE ADDRESS IN BC 

I ERRORS ARE TREATp IN THE FOLLOWING MANNER: 




14 

NAME 

AMDSTR 



15 { 



OOFO 


16 { 

17 PORT 

EQU 

OOFOH 

0018 


18 PULL 

19 { 

EQU 

18H 



20 

PUBLIC 

AMDSTR 



21 { 





22 

CSEG 




23 { 



0000 D5 


24 AMDSTR { 

PUSH 

D 

0001 03 


25 

INX 

B 

0002 03 


26 

INX 

B 

0003 03 


27 

INX 

B 

0004 DBFl 


28 busy: 

IN 

PORT+1 

0006 B7 


29 

ORA 

A 

0007 FA0400 

C 

30 

JM 

BUSY 

OOOA 5F 


31 

MOV 

EfA 

OOOB E61E 


32 

AN I 

lEH 

OOOD CA3800 

C 

33 

JZ 

NOERR 

0010 3E18 


34 

HVI 

A » PULL 

0012 D3F1 


35 

OUT 

PORT+1 

0014 7B 


36 

MOV 

A>E 

0015 E61E 


37 

ANI 

lEH 

0017 FE08 


38 

CPI 

OSH 

0019 CA3200 

C 

39 

JZ 

UNDFLO 

OOlC E604 


40 

ANI 

04H 

OOIE C23200 

C 

41 

JNZ 

UNDFLO 

0021 7B 


42 

MOV 

ArE 

0022 17 


43 

RAL 


0023 E680 


44 

ANI 

80H 

0025 F67F 


45 

ORI 

7FH 

0027 02 


46 

STAX 

B 

0028 3EFF 


47 

MVI 

ArOFFH 

002A OB 


48 back: 

DCX 

B 

002B 02 


49 

STAX 

B 

002C OB 


50 

DCX 

B 

002D 02 


51 

STAX 

B 

002E OB 


52 

DCX 

B 

002F 02 


53 

STAX 

B 

0030 D1 


54 

POP 

D 


1 ) UNDERFLOW 
2> OVERFLOW 

3) DIVIDE BY ZERO 

4) SORT OR LOG OF A 

NEGATIVE NUMBER 
6 ) ARGUMENT OF INVERSE 
TRIG. OR EXP OUT 
OF RANGE 


RESULT s 0,0 
RESULT +/- 2**127 
RESULT ^ +/- 2**127 

RESULT =0,0 


RESULT ^ V- 2**127 


{SAVE DE REGISTER PAIR 
{MOVE POINTER TO BEGINNING 


{WAIT TILL NOT BUSY 


{CHECK FOR ERROR 

{PULL BAD ENTRY OFF AMD STACK 

{GET STATUS BACK 

{STRIP OUT ERROR FLAGS 

{SORT OR LOG OF A NEGATIVE NUMBER = UNDFLO 

{UNDERFLO 

{GET ERROR ft AGS 


{MAKE MAX EXPONENT WITH PROPER SIGN 
{SAVE MANTISSA 


{RESTORE DE REGISTER PAIR 
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ISIS-II 8080/8085 HACRO ASSEHBLERf V3.0 


AHDSTR PAGE 


LOC OBJ 


LINE 

SOURCE STATEMEI 

0031 C7 


55 

RET 

AfOOH 

0032 3E00 


56 UNDFLO} 

MVI 

0034 02 


57 

STAX 

B 

BACK 

0035 C32AOO 

C 

58 

JMP 

0038 DBFO 


59 NOERR 5 

IN 

PORT 

003A 07 


60 

RLC 


003B B7 
003C F24500 

C 

61 

62 

T 

SKIPl 

003F CAFC 


63 

ADI 

OFCH 

0041 3F 


64 

CMC 


0042 C34700 

C 

65 

JMP 

0045 C6FC 


66 SKIPl} 

67 SKIP2} 

ADI 

OFCH 

0047 IF 


RAR 


0048 IF 


68 

RAR 

B 

004? 02 


69 

STAX 

004A DBFO 


70 

IN 

PORT 

004C 17 


71 

RAL 


004D OF 


72 

RRC 

B 

004E OB 


73 

DCX^ 

004F 02 


74 

STAX 

B 

0050 DBFO 


75 

IN 

PORT 

0052 OB 


76 

DCX 

B 

0053 02 


77 

STAX 

B 

0054 DBFO 


78 

IN 

PORT 

C056 OB 


79 

DCX 

B 

0057 02 


80 

STAX 

B 

0058 D1 


81 

POP 

D 

0059 C9 


82 

RET 




83 

END 



J UNDERFLOW r THEN RESULT =0.0 

{GET BYTE 3 (EXPONENT) 

> CONVERT EXPONENT TO INTEL FORMAT 


)SAVE BYTE 3 
fGET BYTE 2 

{REPLACE MSB WITH EXPONENT LSB 


{SAVE BYTE 2 
{GET BYTE 1 

{SAVE BYTE 1 
{GET BYTE 0 

{SAVE BYTE 0 

{RESTORE BE RESISTER PAIR 


PUBLIC SYMBOLS 
AMDSTR C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS „ . 

AMDSTR C 0000 BACK C 002A 
SKIPl C 0045 

SKIP2 C 0047 UNDFLO C 0032 
ASSEMBLY COMPLETE » NO ERRORS 


C 002A BUSY C 0004 NOERR C 0038 PORT A OOFO PULL A 0018 


ASH80 {FIIAMDLOD.SRC DEBUG PAGELENGTH(75) PAGEUIDTH( 90 ) 


ISIS-II 8030/8085 MACRO ASSEMBLER* U3*0 


AMDLOD PAGE 1 


LOC OBJ 


LINE SOURCE STATEMENT 

1 {ROUTINE TO^LOAD A FLOATING 

2 j THE ADDRESS IN BC INTO THE 

4 . NAME AMDLOD 


POINT NUMBER (IN INTEL FORMAT) FROM 
AMC 95/6011 INTERNAL REGISTER 


EQU OOFOH 
PUBLIC AMDLOD 
CSEG 


0000 DBFl 


13 AMDLOD { 

IN 

PORTFl 

{READ STATUS 

0002 B7 



ORA 

A 

{SET FLAGS 

0003 FAOOOO 

C 

15 

JH 

AMDLOD 

{LOOP IF BUSY 

0006 OA 


16 

LDAX 

B 

0007 D3F0 


S.; 

OUT 

PORT 

{SEND BYTE 0 

0009 03 



INX 

B 

OOOA OA 


f ‘''1 

LDAX 

B 


OOOB D3F0 
OOOD 03 



OUT 

PORT 

{SEND BYTE 1 



INX 

B 


OOOE OA 


22 

LDAX 

B 

{GET BYTE 2 

OOOF F680 


23 

ORI 

80H 

{SET MSB 

0011 D3F0 


24 

OUT 

PORT 

{SEND 

0013 OA 


25 

LDAX 

B 

{GET BYTE 2 
{MOVE SIGN TO CARRY 

0014 17 


26 

RAL 


0015 03 


27 

INX 

B 

0016 OA 


28 

LDAX 

B 

{GET BYTE 3 

0017 17 


29 

RAL 


{SHIFT IN EXPONENT LSB 
{BEGIN CONVERTING EXPONENT 

0018 17 


30 

RAL 


0019 DA2800 

C 

31 

JC 

LABELl 

OOlC FE7C 


32 

CPI 

7CH 

{EXP>=2**"65 

OOIE D23400 

C 

33 

JNC 

LABEL2 

0021 IF 


34 

RAR 


0022 3E80 


35 

MVI 

A* BOH 

{IF NOT EXP=24!i^~65 

0024 IF 


36 

RAR 

0025 C33700 

C 

37 

aMr- 

LABEL3 


0028 FE7C 


38 LABELl 5 

CPI 

7CH 

{EXP<2H(*63 

002A DA3400 

C 

39 

JC 

LABEL2 

002D IF 


40 

RAR 


002E 3E7E 


41 

MVI 

A*7EH 

{IF NOT EXP=2K()|i62 

0030 IF 


42 

RAR 


0031 C33700 

C 

43 

JMP 

LABELS 


0034 C604 


44 LABEL21 

ADI 

04 

{COMPLETE CONVERTING EXPONENT 

0036 OF 


45 

RRC 


0037 D3F0 


46 LABELS} 

OUT 

PORT 

{SEND EXPONENT ( BYTE 3) 

0039 C9 


47 

RET 

{RETURN 



48 

END 




PUBLIC SYMBOLS 
AMDLOD C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 
AMDLOD C 0000 


LABEL 1 C 0028 LABEL2 C 0034 LABELS C 0037 PORT A OOFO 


ASSEMBLY COMPLETE* NO ERRORS 
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ASH80 5FmNTSTR.SRC DEBUG PAGELENGTH( 75 ) PAGEWIIiTH( VO ) 


ISIS~II 8080/8085 MACRO ASSEMBLER» V3*0 INTSTR PAGE 1 


LOC OBJ 


LINE 


SOURCE STATEMENT 


{ROUTINE TO STORE A 14-BIT INTEGER AT THE ADDRESS IN BC 
j FROM THE 95/6011 INTERNAL REGISTER 



i . 

NAME 

INTSTR 


5 f 



OOFO 

6 i 



7 PORT 

8 f 

EQU 

OOFOH 



9 

PUBLIC 

INTSTR 


10 { 




11 

CSEG 



12 { 



0000 DBFl 

13 INTSTR t 

IN 

PORTFl 

0002 B7 

14 

ORA 

A 

0003 FAOOOO C 

15 

JM 

INTSTR 

0006 03 

16 

INX 

B 

0007 DBFO 

17 

IN 

PORT 

0009 02 

18 

STAX 

B 

OOOA OB 

19 

DCX 

B 

OOOB DBFO 

20 

IN 

PORT 

OOOD 02 

21 

STAX 

B 

OOOE C9 

22 

RET 


23 

END 



{WAIT TILL NOT BUSY 

fSAUE BYTE 1 
{SAVE BYTE 0 


PUBLIC SYMBOLS 
INTSTR C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 

INTSTR C 0000 PORT A OOFO 
ASSEMBLY COMPLETE » NO ERRORS 


265 


ASKBO 5 m GIVE, SRC DEBUG PAGELENGTH( 75 ) PAGEUIDTH( 90) 


ISIS-II 8080/8085 MACRO ASSEMBLERr V3,0 


GIVE PAGE 1 


LOC OBJ 


SOURCE STATEMENT 

)ROUTINE TO GIVE A FLOATING POINT NUMBER (IN AND FORMAT) AT THE 
5 ADDRESS IN DE TO THE AMC 95/6011 INTERNAL REGISTER 

' NAME GIVE 


OOFOH 


PUBLIC 



10 f 





11 

CSEG 




12 i 




0000 DBFl 

13 GIVEl 

IN 

PORTFl 

iWAIT TILL NOT BUSY 

0002 B7 

14 

ORA 

A 

0003 FAOOOO 

C 15 

JM 

GIVE 


0006 lA 

16 

LDAX 

D 


0007 D3F0 

17 

OUT 

PORT 

)SEND BYTE 0 

0009 13 

18 

INX 

D 


OOOA lA 

19 

LDAX 

D 


OOOB D3F0 

20 

OUT 

PORT 

)SEND BYTE 1 

OOOD 13 

21 

INX 

D 


OOOE lA 

22 

LDAX 

D 


OOOF D3F0 

23 

OUT 

PORT 

,‘SEND BYTE 2 

0011 13 

24 

INX 

D 


0012 lA 

25 

LDAX 

D 

fSEND BYTE 3 

0013 D3F0 

26 

OUT 

PORT 

0015 IB 

27 

DCX 

D 


0016 IB 

28 

DCX 

D 


0017 IB 

29 

DCX 

D 


0018 C9 

30 

RET 




31 

END 




PUBLIC SYMBOLS 
GIVE C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 
GIVE C 0000 


ASSEMBLY COMPLETE, 


PORT A OOFO 
NO ERRORS 


V/x :. st ^ . 

' ^ * ^KtA. ' \ 
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ASM80 {FUGET.SRC DEBUG PAGELENGTW 75 ) PAGEUIDTH( 90 > 


ISIS-n 8080/8085 HACRO ASSEMBLERr V3.0 


GET PAGE 1 


LOG OBJ 


E SOURCE STATEMENT 

1 JROUTINE TO GET A FLOATING POINT 



2 i AMC 

3 f 

i . 

5 r 

95/6011 

INTERNAL 

REGISTER AND STORE IT AT THE 


NAME 

GET 


OOFO 

6 f 

7 PORT 

8 f 

9 

EQU 

OOFOH 



PUBLIC 

GET 



10 » 





11 

CSEG 




12 f 




0000 13 

13 GET! 

INX 

D 

fMOVE POINTER 

0001 13 

14 

INX 

D 


0002 13 

15 

INX 

D 

JWAIT TILL NOT BUSY 

0003 DBFl 

16 BSY{ 

IN 

PORTFl 

0005 B7 

17 

ORA 

A 


0006 FA0300 

C 18 

JM 

BSY 


0009 DBFO 

19 

IN 

PORT 


OOOB 12 

20 

STAX 

D 

fSAVE BYTE 3 

OOOC IB 

21 

DCX 

D 


OOOD DBFO 

22 

IN 

PORT 

ISAOE BYTE 2 

OOOF 12 

23 

STAX 

D 

0010 IB 

24 

DCX 

D 


0011 DBFO 

25 

IN 

PORT 

JSAOE BYTE 1 

0013 12 

26 

STAX 

n 

OOU IB 

27 

DCX 

D 


0015 DBFO 

28 

IN 

PORT 

fSAVE BYTE 0 

0017 12 

29 

STAX 

D 

0018 C9 

30 

RET 




31 

END 




( IN AMD FORMAT ) FROM THE 


PUBLIC SYMBOLS 
GET C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 
BSY C 0003 


C 0000 


PORT A OOFO 


ASSEMBLY COMPLETE > NO ERRORS 


ASH80 {FUINTLOD.SRC DEBUG PAGELENGTH( 75 ) PAGEWIDTH( 90 ) 


ISIS-n 8080/8085 MACRO ASSEMBLER^ V3,0 


INTLOD PACE 1 


LOC OBJ 


LINE SOURCE STATEMENT 



4 ^ 

NAME 

INTLOD 

OOFO 

7 PORT 

EQU 

OOFOH 


8 ( 




ih 

CSEG 



U 

PUBLIC 

INTLOD 


12 } 



0000 DBFl 

13 INTLOD! 


PORT+1 

0002 B7 

C U 

ORA 

A 

0003 FAOOOO 


INTLOD 

0006 OA 

16 

LDAX 

B 

0007 D3F0 

17 

OUT 

PORT 

0009 03 

18 

INX 

B 

OOOA OA 

19 

LDAX 

B 

OOOB D3F0 

20 

OUT 

PORT 

OOOD C9 

21 

RET 


22 

END 



JWAIT TILL NOT BUSY 

fSEND BYTE 0 
fSEND BYTE 1 


PUBLIC SYMBOLS 
INTLOD C 0000 

EXTERNAL SYMBOLS 


USER SYMBOLS 

INTLOD C 0000 PORT A OOFO 
ASSEMBLY COMPLETE » NO ERRORS 
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ASH80 {F1II32L0D.SRC DEBUK PAGELEN6TH( 75 ) 


I SIS “II 8080/8085 MACRO ASSEMBLER r V3,0 


I32L0D 


.OC OBJ 


PUBLIC SYMBOLS 
I32L0D C 0000 

EXTERMAL SYMBOLS 


SOURCE STATEMENT 

> ROUTINE TO LOAD A 32-BIT INTEGER NUMBER AT THE ADDRESS IN BC INTO 
} THE AMD 95/60H INTERNAL REGISTER* BC IS INCREMENTED BY FOUR, 

NAME I32L0D 
t 

PORT EOU OOFOH 



9 

PUBLIC 

I32L0D 



10 J 





11 

CSEG 




12 J 




0000 DBFl 

13 I32L0D{ 

IN 

PORTFl 

*UAIT TILL Nl 

0002 B7 

0003 FAOOOO 

14 

ORA 

A 

C 15 

JM 

I32L0n 


0006 03 

16 

INX 

B 


0007 03 

17 

INX 

B 


0008 03 

18 

INX 

B 


0009 OA 

19 

LDAX 

B 


OOOA D3F0 

20 

OUT 

PORT 

?SEND BYTE 0 

OOOC OB 

21 

DCX 

B 

GOOD OA 

22 

LDAX 

B 


OOOE D3F0 

23 

OUT 

PORT 

*SEND BYTE 1 

0010 OB 

24 

DCX 

B 


0011 OA 

25 

LDAX 

B 


mi 


cyT 

DCX 

PORT 
B ■ 

JSEND BYTE 2 

0015 OA 

28 

LDAX 

B 


0016 D3F0 

29 

OUT 

PORT 

*SEND BYTE 3 

0018 03 

30 

INX 

B 

0019 03 

1 

INX 

B 


OOIA 03 

32 

INX 

B 


OOIB 03 

33 

INX 

B 


OOlC C9 

34 

RET 




35 

END 




USER SYMBOLS 

I32L0D C 0000 PORT A OOFO 
ASSEMBLY COMPLETE* NO ERRORS 
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